%!PS-Adobe
/wpdict	120 dict def
wpdict	begin
/bdef	{bind def} bind def

/bflg	false def
/Bfont	0 def
/bon	false def

/psz	0 def
/_S	/show load def
/_t	{0 rmoveto} bdef

/_pixelsnap
	{transform .25 sub round .25 add
	 exch .25 sub round .25 add exch itransform
	} bdef
/_pixeldsnap
	{ dtransform round exch round exch idtransform } bdef

/_lt	{_pixelsnap lineto} bdef
/_rlt	{_pixeldsnap rlineto} bdef
/_mt	{_pixelsnap moveto} bdef
/_rmt	{_pixeldsnap rmoveto} bdef

/bshow	{gsave psz 30 div 0 _rmt dup show grestore show} bdef

/DUx	0 def
/DUy	0 def
/hscl	0 def

/M	{_mt
	 2 mul -2 2
	 { -2 roll 0 _rmt _S } for
	} bdef

/makeoutl
	{ dup /OutlineFlag known not
	  { dup dup length 2 add dict begin
	    {1 index /FID ne { def }{ pop pop } ifelse } forall
	    /UniqueID known {/UniqueID UniqueID 10000 add def} if
	    /PaintType PaintType 0 eq { 2 }{ PaintType } ifelse def
	    /StrokeWidth 15 def
	    /OutlineFlag true def
	    /OutlineFont currentdict end definefont
	  } if
	} bdef

/nbuff	32 string def
/orntsv	0 def
/plen	0 def
/pwid	0 def
/picstr	1 string def

/reencode
	{ dup FontDirectory exch known
	  { findfont }
	  {  dup nbuff cvs dup length 1 sub get 82 eq
	     {	dup nbuff cvs dup length 1 sub 0 exch getinterval
		findfont begin
		currentdict dup length dict begin
		{ 1 index /FID ne {def} {pop pop} ifelse } forall
		/FontName exch def
		/Encoding WPencoding def
		currentdict dup end end
		/FontName get exch definefont
	     }
	     { findfont } ifelse
	  } ifelse
	} bdef

/ron	false def
/sflg	false def
/slan	0 def
/sp	32 def

/sshow
	{ save exch
	   gsave
	    psz 20 div dup neg _rmt dup show
	   grestore
	   dup
	   save exch
	    Bfont setfont
	    1 setgray show
	   restore
	   currentfont makeoutl setfont show
	   currentpoint 3 -1 roll
	  restore _mt
	} bdef

/Sx	0 def
/Sy	0 def
/Ux	0 def
/Uy	0 def
/W	/widthshow load def

/WPencoding StandardEncoding 256 array copy def 0
[ 127	/Aacute/Acircumflex/Adieresis/Agrave/Aring/Atilde/Ccedilla
	/Delta/Eacute/Ecircumflex/Edieresis/Egrave/Eth/Gamma/Iacute
	/Icircumflex/Idieresis/Igrave/Lambda/Ntilde/Oacute
	/Ocircumflex/Odieresis/Ograve/Omega/Otilde/Phi/Pi/Psi
	/Scaron/Sigma/TeXtext32/Theta/Thorn
  209	/Uacute/Ucircumflex/Udieresis/Ugrave/Upsilon/Xi/Yacute
	/Ydieresis/Zcaron/aacute/acircumflex/adieresis/agrave
	/aring/atilde/brokenbar
  228	/ccedilla/copyright/degree/divide
  236	/dotlessj/eacute/ecircumflex/edieresis/egrave
  242	/eth/ff/ffi
  246	/ffl/iacute
  252	/icircumflex/idieresis/igrave/logicalnot
  1	/minus/mu/multiply/ntilde/oacute/ocircumflex/odieresis
  	/ograve/onehalf/onequarter/onesuperior/otilde/plusminus
  	/registered/scaron/thorn/threequarters/threesuperior
  	/trademark/twosuperior/uacute/ucircumflex/udieresis
  	/ugrave/yacute/ydieresis/zcaron
]
{ dup type /nametype eq
  { WPencoding 2 index 2 index put pop 1 add }
  { exch pop } ifelse
} forall pop

/_B	{/bflg true def
	 sflg not {/_S /bshow load def /bon true def} if
	} bdef
/_b	{/bflg false def
	 bon {/_S /show load def /bon false def} if
	} bdef
/_bd	{save} bdef
/_bp	{save 2 setmiterlimit .06 .06 scale 0 0 _mt} bdef
/_ccprocs
	{/proc2 exch cvlit def
	 /proc1 exch cvlit def
	 /newproc proc1 length proc2 length add
	 array def
	 newproc 0 proc1 putinterval
	 newproc proc1 length proc2 putinterval
	 newproc cvx
	} def
/_clr	{3 {255 div 3 1 roll} repeat
	 ron {6 3 roll pop pop pop} {setrgbcolor} ifelse
	} bdef
/_cp	/closepath load def
/_cw	{stroke initclip _mt 0 2 index
	 _rlt 0 _rlt 0 exch neg
	 _rlt clip newpath
	} bdef
/_d	/setdash load def
/_DU	{currentpoint /DUy exch def /DUx exch def} bdef
/_du	{gsave
	  save
	   8 setlinewidth
	   currentpoint -30 add _mt
	   DUx DUy -30 add _lt stroke
	  restore
	  8 setlinewidth
	  currentpoint -50 add _mt
	  DUx DUy -50 add _lt stroke
	 grestore
	} bdef
/_ed	{restore} bdef
/_ep	{showpage restore 0 0 _mt} bdef
/_f	/eofill load def
/_ff	{ exch reencode exch
	  3 div dup /psz exch def
	  scalefont dup /Bfont exch def setfont
	} bdef
/_ffs	{ /slan exch 10 div def /hscl exch 1000 div def
	  /psz exch 3 div def
	  [ psz hscl mul 0 slan dup sin exch cos div psz mul psz 0 0 ]
	  exch reencode exch makefont dup /Bfont exch def setfont
	} bdef
/_g	/setgray load def
/_gs	{neg 100 add 100 div setgray} bdef
/_i	{gsave
	  dup /picstr exch 7 add 8 idiv string def
	  3 1 roll translate dup 1 scale
	  dup 1 1 [5 -1 roll 0 0 1 0 0]
	  {currentfile picstr readhexstring pop} image
         grestore
        } bdef
/_is	{save 4 1 roll
	  dup /picstr exch 7 add 8 idiv string def
	  3 1 roll translate dup 1 scale
	  dup 1 1 [5 -1 roll 0 0 1 0 0]
	  {currentfile picstr readhexstring pop} image
	 restore
	} bdef
/_ie	{1 eq { {1 exch sub} currenttransfer _ccprocs settransfer} if
	 /_isx exch def /_isy exch def
	 _isx mul exch _isy mul translate
	 add 2 div /_txc exch def
	 add 2 div /_tyc exch def
	 _txc _isx mul _tyc _isy mul translate
	 360 exch sub rotate
	 1 eq { _isx neg _isy scale }
	 { _isx _isy scale }
	 ifelse _txc neg _tyc neg translate
	} bdef
/_irms	{save
	  12 1 roll
	  1 eq {{1 exch sub} currenttransfer _ccprocs settransfer} if
	  /picstr exch string def translate
	  2 index 6 index sub 2 div 2 index 6 index sub 2 div neg
	  translate
	  5 index 5 index 2 div neg exch 2 div exch
	  2 copy neg exch neg exch 5 2 roll translate
	  360 exch sub rotate
	  3 index 3 index 7 index div exch 8 index div exch scale
	  translate pop pop 2 index 2 index scale
	  3 index 0 eq
	  { [ 3 index 0 0 5 index neg 0 0 ] }
	  { 3 index 1 eq
	    { [ 3 index 0 0 5 index 0 7 index ] }
	    { 3 index 128 eq
	      { [ 3 index neg 0 0 5 index neg 7 index 0 ] }
	      { [ 3 index neg 0 0 5 index 7 index 7 index ] } ifelse
	    } ifelse
	  } ifelse
          {currentfile picstr readhexstring pop} image
          pop
	 restore
	} bdef

/_l	{_lt} bdef
/_lr	{_rlt} bdef
/_m	{_mt} bdef
/_O	{currentfont makeoutl setfont} bdef
/_o	{Bfont setfont} bdef
/_ornt	{/pwid exch def /plen exch def
	 orntsv 1 eq {0 pwid translate -90 rotate} if
	 orntsv 2 eq {pwid plen translate 180 rotate} if
	 orntsv 3 eq {plen 0 translate 90 rotate} if
	 dup 1 eq {pwid 0 translate 90 rotate} if
	 dup 2 eq {pwid plen translate 180 rotate} if
	 dup 3 eq {0 plen translate -90 rotate} if
	 /orntsv exch def
	} bdef
/_lod1	{currentpoint orntsv plen pwid 6 -1 roll restore save} bdef
/_lod2	{_bp 7 2 roll _ornt _mt} bdef
/_unlod	{currentpoint orntsv plen pwid 7 -2 roll restore restore
	 _bp 6 1 roll _ornt _mt
	} bdef
/_p	{2 copy _mt 1 0 _rlt _mt} bdef
/_pl	{{_lt} repeat} bdef
/_R	{/ron true def currentrgbcolor 1 .25 .25 setrgbcolor} bdef
/_r	{/ron false def setrgbcolor} bdef /_rm  {0 _rmt} bdef
/_rmxy	{_rmt} bdef
/_s	/stroke load def
/_SH	{bon {/bon false def} if
	 /_S /sshow load def /sflg true def
	} bdef
/_sh	{/_S /show load def /sflg false def bflg {_B} if} bdef
/_sp	{ gsave stroke grestore } bdef
/_ST	{currentpoint /Sy exch def /Sx exch def} bdef
/_st	{gsave
	  currentpoint pop
	  Sx dup Sy _mt sub
	  (\320) stringwidth pop div
	  dup floor cvi dup
	  {(\320) show} repeat sub
	  dup 0 gt {1 scale (\320) show}{pop} ifelse
	 grestore
	} bdef
/_U	{currentpoint /Uy exch def /Ux exch def} bdef
/_u	{gsave
	  currentpoint
	  -30 add _mt
	  Ux Uy -30 add _lt
	  12 setlinewidth
	  stroke
	 grestore
	} bdef
/_w	/setlinewidth load def
end
/#copies 1 def /wpdict2 100 dict def
wpdict begin wpdict2 begin
_bd
/_rhs{readhexstring}bdef/_tr{translate}bdef
/_ix{index}bdef/_mx{matrix}bdef
/ife{ifelse}bdef/_x{exch}bdef
/_is{save 4 1 roll
dup/picstr _x 7 add 8 idiv string def
3 1 roll _tr dup 1 scale
dup 1 1[5 -1 roll 0 0 1 0 0]
{currentfile picstr _rhs pop}image restore}bdef
/_epsi{1 eq{{1 _x sub}currenttransfer _ccprocs settransfer}if
/yp _x def/xp _x def/dhgt _x def/dwid _x def
4 copy sub/swid _x def
sub/shgt _x def
add 2 div/icx _x def add 2 div/icy _x def
xp dwid 2 div add icx sub yp dhgt 2 div sub
icy sub _tr icx icy _tr
360 _x sub rotate
dwid swid div/xsc _x def _x
dhgt shgt div/ysc _x def _x
dup 1 eq{xsc neg/xsc _x def pop}
{dup 2 eq{ysc neg /ysc _x def pop}
{3 eq{ysc neg/ysc _x def xsc neg/xsc _x def}
{}ife}ife}ife
xsc ysc scale
100 div _x 100 div _x scale
icx neg icy neg _tr}bdef
/_c{3{255 div 3 1 roll}repeat setrgbcolor}bdef
/eq3{3 copy 2 _ix eq{eq{true}{false}ife}{pop
pop false}ife}bdef
/g{255 div setgray}bdef
/_clr{ron{6 3 roll pop pop pop}{eq3{pop
pop g}{_c}ife}ife}bdef
/_r{/ron false def eq3{1 sub neg g pop
pop}{setrgbcolor}ife}bdef
/_ircms{save 15 1 roll
1 eq{{1 exch sub}currenttransfer _ccprocs settransfer}if
/pstr _x string def _tr
/Cli _x def/USy _x def/USx _x def/Rot _x def/HTd _x def
/WDd _x def/Bdep _x def/HTs _x def/WDs _x def/MIR _x def
USx 100 div USy 100 div scale
WDd WDs sub 2 div HTd HTs sub 2 div neg _tr
WDs HTs 2 div neg _x 2 div _x _tr
Rot 360 _x sub rotate WDd HTd HTs div _x WDs div _x scale
WDs 2 div neg HTs 2 div _tr
WDs HTs scale WDs HTs Bdep MIR 0
eq{[WDs 0 0 HTs neg 0 0]}{MIR 1 eq{[WDs 0 0 HTs 0 HTs]}
{MIR 128 eq{[WDs neg 0 0 HTs neg WDs 0]}
{[WDs neg 0 0 HTs WDs HTs]}ife}ife}ife
{currentfile pstr _rhs pop}Cli
0 eq{image}{false 3 colorimage}ife
restore}bdef
/_bp{save 2 setlinecap 2 setmiterlimit
.06 .06 scale 0 0 moveto}bdef
/tctm _mx def/trot _mx def/tscale _mx def/rmtx _mx def
/fr{72 0 rmtx defaultmatrix dtransform
/yres _x def/xres _x def
xres dup mul yres dup mul add sqrt}bdef
/sus{/spotf _x def/sang _x def/csz _x def
/m tctm currentmatrix def/rm sang trot rotate def
/sm csz dup tscale scale def
sm rm m m concatmatrix m concatmatrix pop
1 0 m dtransform /y1 _x def/x1 _x def
/veclength x1 dup mul y1 dup mul add sqrt def
/frcy fr veclength div def /nsang y1 x1 atan def
frcy nsang/spotf load setscreen}bdef
/bitis{/ybit _x def /xbit _x def
/bval bstring ybit bwidth mul xbit 8 idiv add get def
/mask 1 7 xbit 8 mod sub bitshift def
bval mask and 0 ne}bdef
/bps{/y _x def /x _x def
/xndx x 1 add 2 div bpside mul cvi def
/yndx y 1 add 2 div bpside mul cvi def
xndx yndx bitis
{/onb onb 1 add def 1}{/ofb ofb 1 add def 0}ife}bdef
/stpatt{/csz _x def /angle _x def /bwidth _x def
/bpside _x def /bstring _x def
/onb 0 def /ofb 0 def
csz angle /bps load
sus{}settransfer
ofb ofb onb add div _g}bdef
/_fp{8 1 0 cpi stpatt}bdef
/_pf{gsave eofill grestore}bdef
/_np{newpath}bdef/_lc{setlinecap}bdef
/_sr{/cpi _x def}bdef
/nbuff 50 string def
letter _bp 0 13200 10200 _ornt /Times-RomanR 550 _ff
0 13200 10200 _ornt 3285 10322 _m
/HelveticaR 660 _ff
(XLISP-PLUS:)_S 73 _t
(Another)_S 73 _t
(Object-oriented)_S 73 _t
(Lisp)_S /Times-RomanR 550 _ff
4929 9886 _m
(V)_S -20 _t
(ersion)_S 61 _t
(2.1d)_S 4802 9454 _m
(January)_S 61 _t
(2,)_S 61 _t
(1992)_S 4994 9022 _m
(T)_S -13 _t
(om)_S 61 _t
(Almy)_S 4519 8806 _m
(toma@sail.labs.tek.com)_S 1500 8158 _m
(Portions)_S 68 _t
(of)_S 68 _t
(this)_S 67 _t
(manual)_S 68 _t
(and)_S 68 _t
(software)_S 68 _t
(are)_S 67 _t
(from)_S 68 _t
(XLISP)_S 68 _t
(which)_S 68 _t
(is)_S 67 _t
(Copyright)_S 68 _t
(\(c\))_S 68 _t
(1988,)_S 68 _t
(by)_S 67 _t
(David)_S 68 _t
(Michael)_S 1500 7942 _m
(Betz,)_S 74 _t
(all)_S 75 _t
(rights)_S 74 _t
(reserved.)_S 74 _t
(Mr)_S -10 _t
(.)_S 75 _t
(Betz)_S 74 _t
(grants)_S 75 _t
(permission)_S 74 _t
(for)_S 74 _t
(unrestricted)_S 75 _t
(non-commercial)_S 74 _t
(use.)_S 75 _t
(Portions)_S 74 _t
(of)_S 1500 7726 _m
(XLISP-PLUS)_S 62 _t
(from)_S 62 _t
(XLISP-ST)_S -15 _t
(A)_S -20 _t
(T)_S 61 _t
(are)_S 62 _t
(Copyright)_S 62 _t
(\(c\))_S 61 _t
(1988,)_S 62 _t
(Luke)_S 62 _t
(T)_S -6 _t
(ierney)_S -12 _t
(.)_S 61 _t
(UNIXSTUF)_S -14 _t
(.C)_S 62 _t
(is)_S 62 _t
(from)_S 61 _t
(W)_S -7 _t
(interp)_S 1500 7510 _m
(1.0,)_S 53 _t
(Copyright)_S 53 _t
(1989)_S 53 _t
(Hewlett-Packard)_S 53 _t
(Company)_S 53 _t
(\(by)_S 52 _t
(Niels)_S 53 _t
(Mayer\).)_S 53 _t
(Other)_S 53 _t
(enhancements)_S 53 _t
(and)_S 53 _t
(bug)_S 52 _t
(\256xes)_S 53 _t
(are)_S 1500 7294 _m
(provided)_S 92 _t
(without)_S 92 _t
(restriction)_S 92 _t
(by)_S 92 _t
(T)_S -13 _t
(om)_S 92 _t
(Almy)_S -12 _t
(,)_S 92 _t
(Mikael)_S 92 _t
(Pettersson,)_S 92 _t
(Neal)_S 92 _t
(Holtz,)_S 92 _t
(Johnny)_S 92 _t
(Greenblatt,)_S 91 _t
(Ken)_S 1500 7078 _m
(Whedbee,)_S 61 _t
(Blake)_S 61 _t
(McBride,)_S 61 _t
(and)_S 61 _t
(Pete)_S 61 _t
(Y)_S -18 _t
(adlowsky)_S -12 _t
(.)_S 61 _t
(See)_S 61 _t
(source)_S 61 _t
(code)_S 61 _t
(for)_S 61 _t
(details.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11840 _m
/Times-RomanR 660 _ff
(T)_S -15 _t
(able)_S 73 _t
(of)_S 73 _t
(Contents)_S /Times-RomanR 550 _ff
1500 11398 _m
(XLISP-PLUS:)_S 61 _t
(Another)_S 61 _t
(Object-oriented)_S 61 _t
(Lisp)_S 4919 11398 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9086 11398 _m
122 _t
(1)_S 1500 10966 _m
(INTRODUCTION)_S 2996 10966 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9086 10966 _m
122 _t
(1)_S 1500 10534 _m
(XLISP)_S 61 _t
(COMMAND)_S 61 _t
(LOOP)_S 3744 10534 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9086 10534 _m
122 _t
(2)_S 1500 10102 _m
(BREAK)_S 61 _t
(COMMAND)_S 61 _t
(LOOP)_S 3850 10102 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9086 10102 _m
122 _t
(3)_S 1500 9670 _m
(DA)_S -20 _t
(T)_S -15 _t
(A)_S 61 _t
(TYPES)_S 2675 9670 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9086 9670 _m
122 _t
(4)_S 1500 9238 _m
(THE)_S 61 _t
(EV)_S -23 _t
(ALUA)_S -20 _t
(T)_S -3 _t
(OR)_S 3103 9238 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9086 9238 _m
122 _t
(6)_S 1500 8806 _m
(HOOK)_S 61 _t
(FUNCTIONS)_S 3209 8806 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9086 8806 _m
122 _t
(7)_S 1500 8374 _m
(LEXICAL)_S 61 _t
(CONVENTIONS)_S 3744 8374 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9086 8374 _m
122 _t
(8)_S 1500 7942 _m
(READT)_S -15 _t
(ABLES)_S 2782 7942 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 7942 _m
61 _t
(10)_S 1500 7510 _m
(SYMBOL)_S 61 _t
(CASE)_S 61 _t
(CONTROL)_S 3850 7510 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 7510 _m
61 _t
(12)_S 1500 7078 _m
(LAMBDA)_S 61 _t
(LISTS)_S 2996 7078 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 7078 _m
61 _t
(14)_S 1500 6646 _m
(OBJECTS)_S 2355 6646 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 6646 _m
61 _t
(16)_S 1500 6214 _m
(SYMBOLS)_S 2462 6214 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 6214 _m
61 _t
(20)_S 1500 5782 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TION)_S 61 _t
(FUNCTIONS)_S 3850 5782 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 5782 _m
61 _t
(22)_S 1500 5350 _m
(SYMBOL)_S 61 _t
(FUNCTIONS)_S 3423 5350 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 5350 _m
61 _t
(24)_S 1500 4918 _m
(PROPER)_S -11 _t
(TY)_S 61 _t
(LIST)_S 61 _t
(FUNCTIONS)_S 4064 4918 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 4918 _m
61 _t
(28)_S 1500 4486 _m
(HASH)_S 61 _t
(T)_S -15 _t
(ABLE)_S 61 _t
(FUNCTIONS)_S 3850 4486 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 4486 _m
61 _t
(29)_S 1500 4054 _m
(ARRA)_S -17 _t
(Y)_S 61 _t
(FUNCTIONS)_S 3316 4054 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 4054 _m
61 _t
(30)_S 1500 3622 _m
(SEQUENCE)_S 61 _t
(FUNCTIONS)_S 3637 3622 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 3622 _m
61 _t
(31)_S 1500 3190 _m
(LIST)_S 61 _t
(FUNCTIONS)_S 61 _t
3103 3190 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 3190 _m
61 _t
(36)_S 1500 2758 _m
(DESTRUCTIVE)_S 61 _t
(LIST)_S 61 _t
(FUNCTIONS)_S 4385 2758 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 2758 _m
61 _t
(40)_S 1500 2326 _m
(ARITHMETIC)_S 61 _t
(FUNCTIONS)_S 3850 2326 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 2326 _m
61 _t
(41)_S 1500 1894 _m
(BITWISE)_S 61 _t
(LOGICAL)_S 61 _t
(FUNCTIONS)_S 4278 1894 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 1894 _m
61 _t
(46)_S 1500 1462 _m
(STRING)_S 61 _t
(FUNCTIONS)_S 3316 1462 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 1462 _m
61 _t
(47)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4728 11867 _m
(Table)_S 61 _t
(of)_S 61 _t
(Contents)_S 1500 11235 _m
(CHARACTER)_S 61 _t
(FUNCTIONS)_S 3850 11235 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 11235 _m
61 _t
(49)_S 1500 10803 _m
(STRUCTURE)_S 61 _t
(FUNCTIONS)_S 3744 10803 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 10803 _m
61 _t
(51)_S 1500 10371 _m
(OBJECT)_S 61 _t
(FUNCTIONS)_S 3423 10371 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 10371 _m
61 _t
(53)_S 1500 9939 _m
(PREDICA)_S -20 _t
(TE)_S 61 _t
(FUNCTIONS)_S 3744 9939 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 9939 _m
61 _t
(55)_S 1500 9507 _m
(CONTROL)_S 61 _t
(CONSTRUCTS)_S 3744 9507 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 9507 _m
61 _t
(59)_S 1500 9075 _m
(LOOPING)_S 61 _t
(CONSTRUCTS)_S 3637 9075 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 9075 _m
61 _t
(62)_S 1500 8643 _m
(THE)_S 61 _t
(PROGRAM)_S 61 _t
(FEA)_S -20 _t
(TURE)_S 3850 8643 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 8643 _m
61 _t
(63)_S 1500 8211 _m
(INPUT/OUTPUT)_S 61 _t
(FUNCTIONS)_S 4064 8211 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 8211 _m
61 _t
(65)_S 1500 7779 _m
(THE)_S 61 _t
(FORMA)_S -20 _t
(T)_S 61 _t
(FUNCTION)_S 3744 7779 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 7779 _m
61 _t
(67)_S 1500 7347 _m
(FILE)_S 61 _t
(I/O)_S 61 _t
(FUNCTIONS)_S 3423 7347 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 7347 _m
61 _t
(69)_S 1500 6915 _m
(STRING)_S 61 _t
(STREAM)_S 61 _t
(FUNCTIONS)_S 4171 6915 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 6915 _m
61 _t
(72)_S 1500 6483 _m
(DEBUGGING)_S 61 _t
(AND)_S 61 _t
(ERROR)_S 61 _t
(HANDLING)_S 61 _t
(FUNCTIONS)_S 5987 6483 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 6483 _m
61 _t
(74)_S 1500 6051 _m
(SYSTEM)_S 61 _t
(FUNCTIONS)_S 3423 6051 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 6051 _m
61 _t
(76)_S 1500 5619 _m
(ADDITIONAL)_S 61 _t
(FUNCTIONS)_S 61 _t
(AND)_S 61 _t
(UTILITIES)_S 5239 5619 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 5619 _m
61 _t
(81)_S 1500 5187 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 4171 5187 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 5187 _m
61 _t
(85)_S 1500 4755 _m
(EXAMPLES:)_S 61 _t
(FILE)_S 61 _t
(I/O)_S 61 _t
(FUNCTIONS)_S 4491 4755 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 4755 _m
61 _t
(93)_S 1500 4323 _m
(INDEX)_S 2141 4323 _m
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 61 _t
(.)_S 9056 4323 _m
61 _t
(95)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4708 11867 _m
(INTRODUCTION)_S 8791 11867 _m
(Page)_S 61 _t
(1)_S 1500 10770 _m
/HelveticaR 660 _ff
(INTRODUCTION)_S /Times-RomanR 550 _ff
1500 10334 _m
(XLISP-PLUS)_S 80 _t
(is)_S 80 _t
(an)_S 80 _t
(enhanced)_S 80 _t
(version)_S 80 _t
(of)_S 80 _t
(David)_S 80 _t
(Michael)_S 80 _t
(Betz's)_S 80 _t
(XLISP)_S 80 _t
(to)_S 80 _t
(have)_S 80 _t
(additional)_S 80 _t
(features)_S 80 _t
(of)_S 1500 10118 _m
(Common)_S 46 _t
(Lisp.)_S 46 _t
(XLISP-PLUS)_S 45 _t
(is)_S 46 _t
(distributed)_S 46 _t
(for)_S 46 _t
(the)_S 45 _t
(IBM-PC)_S 46 _t
(family)_S 46 _t
(and)_S 46 _t
(for)_S 45 _t
(UNIX,)_S 46 _t
(but)_S 46 _t
(can)_S 46 _t
(be)_S 45 _t
(easily)_S 46 _t
(ported)_S 1500 9902 _m
(to)_S 61 _t
(other)_S 61 _t
(platforms.)_S 61 _t
(Complete)_S 61 _t
(source)_S 61 _t
(code)_S 61 _t
(is)_S 61 _t
(proved)_S 61 _t
(\(in)_S 61 _t
("C"\))_S 61 _t
(to)_S 61 _t
(allow)_S 61 _t
(easy)_S 61 _t
(modi\256cation)_S 61 _t
(and)_S 61 _t
(extension.)_S 1500 9470 _m
(Since)_S 57 _t
(XLISP-PLUS)_S 57 _t
(is)_S 58 _t
(based)_S 57 _t
(on)_S 57 _t
(XLISP)_S -20 _t
(,)_S 57 _t
(most)_S 58 _t
(XLISP)_S 57 _t
(programs)_S 57 _t
(will)_S 58 _t
(run)_S 57 _t
(on)_S 57 _t
(XLISP-PLUS.)_S 58 _t
(Since)_S 57 _t
(XLISP-)_S 1500 9254 _m
(PLUS)_S 46 _t
(incorporates)_S 46 _t
(many)_S 47 _t
(more)_S 46 _t
(features)_S 46 _t
(of)_S 46 _t
(Common)_S 46 _t
(Lisp,)_S 46 _t
(many)_S 46 _t
(small)_S 46 _t
(Common)_S 46 _t
(Lisp)_S 46 _t
(applications)_S 46 _t
(will)_S 46 _t
(run)_S 1500 9038 _m
(on)_S 51 _t
(XLISP-PLUS)_S 51 _t
(with)_S 50 _t
(little)_S 51 _t
(modi\256cation.)_S 50 _t
(See)_S 51 _t
(the)_S 50 _t
(section)_S 51 _t
(starting)_S 50 _t
(on)_S 51 _t
(page)_S 50 _t
(85)_S 51 _t
(for)_S 50 _t
(details)_S 51 _t
(of)_S 50 _t
(the)_S 51 _t
(differences)_S 1500 8822 _m
(between)_S 61 _t
(XLISP)_S 61 _t
(and)_S 61 _t
(XLISP-PLUS.)_S 1500 8390 _m
(Many)_S 42 _t
(Common)_S 42 _t
(Lisp)_S 42 _t
(functions)_S 42 _t
(are)_S 42 _t
(built)_S 42 _t
(into)_S 42 _t
(XLISP-PLUS.)_S 42 _t
(In)_S 42 _t
(addition,)_S 42 _t
(XLISP)_S 42 _t
(de\256nes)_S 42 _t
(the)_S 42 _t
(objects)_S 43 _t
('Object')_S 1500 8174 _m
(and)_S 46 _t
('Class')_S 45 _t
(as)_S 46 _t
(primitives.)_S 45 _t
('Object')_S 46 _t
(is)_S 46 _t
(the)_S 45 _t
(only)_S 46 _t
(class)_S 45 _t
(that)_S 46 _t
(has)_S 45 _t
(no)_S 46 _t
(superclass)_S 45 _t
(and)_S 46 _t
(hence)_S 45 _t
(is)_S 46 _t
(the)_S 46 _t
(root)_S 45 _t
(of)_S 46 _t
(the)_S 45 _t
(class)_S 1500 7958 _m
(heirarchy)_S 46 _t
(tree.)_S 46 _t
('Class')_S 46 _t
(is)_S 46 _t
(the)_S 46 _t
(class)_S 46 _t
(of)_S 46 _t
(which)_S 46 _t
(all)_S 47 _t
(classes)_S 46 _t
(are)_S 46 _t
(instances)_S 46 _t
(\(it)_S 46 _t
(is)_S 46 _t
(the)_S 46 _t
(only)_S 46 _t
(object)_S 46 _t
(that)_S 46 _t
(is)_S 46 _t
(an)_S 46 _t
(instance)_S 1500 7742 _m
(of)_S 61 _t
(itself\).)_S 1500 7310 _m
(This)_S 72 _t
(document)_S 71 _t
(is)_S 72 _t
(a)_S 72 _t
(brief)_S 71 _t
(description)_S 72 _t
(of)_S 71 _t
(XLISP-PLUS.)_S 72 _t
(It)_S 71 _t
(assumes)_S 72 _t
(some)_S 71 _t
(knowledge)_S 72 _t
(of)_S 71 _t
(LISP)_S 72 _t
(and)_S 71 _t
(some)_S 1500 7094 _m
(understanding)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(concepts)_S 61 _t
(of)_S 61 _t
(object-oriented)_S 61 _t
(programming.)_S 1500 6662 _m
(Y)_S -18 _t
(ou)_S 61 _t
(will)_S 61 _t
(probably)_S 61 _t
(also)_S 61 _t
(need)_S 61 _t
(a)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
("Common)_S 61 _t
(Lisp:)_S 61 _t
(The)_S 61 _t
(Language")_S 61 _t
(by)_S 61 _t
(Guy)_S 61 _t
(L.)_S 62 _t
(Steele,)_S 61 _t
(Jr)_S -10 _t
(.,)_S 61 _t
(published)_S 1500 6446 _m
(by)_S 68 _t
(Digital)_S 68 _t
(Press)_S 68 _t
(to)_S 68 _t
(use)_S 68 _t
(as)_S 68 _t
(a)_S 67 _t
(reference)_S 68 _t
(for)_S 68 _t
(some)_S 68 _t
(of)_S 68 _t
(the)_S 68 _t
(Common)_S 68 _t
(Lisp)_S 68 _t
(functions)_S 67 _t
(that)_S 68 _t
(are)_S 68 _t
(described)_S 68 _t
(only)_S 1500 6230 _m
(brie\257y)_S 61 _t
(in)_S 61 _t
(this)_S 61 _t
(document.)_S 1500 5798 _m
(XLISP-PLUS)_S 54 _t
(has)_S 54 _t
(a)_S 54 _t
(number)_S 54 _t
(of)_S 54 _t
(compilation)_S 54 _t
(options)_S 54 _t
(to)_S 54 _t
(to)_S 54 _t
(eliminate)_S 54 _t
(groups)_S 54 _t
(of)_S 54 _t
(functions)_S 54 _t
(and)_S 54 _t
(to)_S 54 _t
(tailor)_S 54 _t
(itself)_S 1500 5582 _m
(to)_S 55 _t
(various)_S 55 _t
(environments.)_S 55 _t
(Unless)_S 55 _t
(otherwise)_S 54 _t
(indicated)_S 55 _t
(this)_S 55 _t
(manual)_S 55 _t
(assumes)_S 55 _t
(all)_S 55 _t
(options)_S 55 _t
(are)_S 54 _t
(enabled)_S 55 _t
(and)_S 55 _t
(the)_S 1500 5366 _m
(system)_S 45 _t
(dependent)_S 45 _t
(code)_S 45 _t
(is)_S 45 _t
(as)_S 45 _t
(complete)_S 45 _t
(as)_S 45 _t
(that)_S 45 _t
(provided)_S 46 _t
(for)_S 45 _t
(the)_S 45 _t
(MS/DOS)_S 45 _t
(environment.)_S 45 _t
(Assistance)_S 45 _t
(for)_S 45 _t
(using)_S 1500 5150 _m
(or)_S 61 _t
(porting)_S 61 _t
(XLISP-PLUS)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(obtained)_S 61 _t
(on)_S 61 _t
(the)_S 61 _t
(USENET)_S 61 _t
(newsgroup)_S 61 _t
(comp.lang.lisp.x,)_S 61 _t
(or)_S 61 _t
(by)_S 61 _t
(writing)_S 61 _t
(to)_S 1500 4934 _m
(T)_S -13 _t
(om)_S 58 _t
(Almy)_S 57 _t
(at)_S 57 _t
(the)_S 57 _t
(Internet)_S 57 _t
(address)_S 57 _t
(toma@sail.labs.tek.com.)_S 57 _t
(Y)_S -18 _t
(ou)_S 57 _t
(can)_S 57 _t
(also)_S 57 _t
(reach)_S 57 _t
(T)_S -13 _t
(om)_S 57 _t
(by)_S 57 _t
(writing)_S 57 _t
(to)_S 57 _t
(him)_S 57 _t
(at)_S 1500 4718 _m
(17830)_S 61 _t
(SW)_S 61 _t
(Shasta)_S 61 _t
(T)_S -6 _t
(rail,)_S 61 _t
(T)_S -6 _t
(ualatin,)_S 61 _t
(OR)_S 61 _t
(97062,)_S 61 _t
(USA.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4356 11867 _m
(XLISP)_S 61 _t
(COMMAND)_S 61 _t
(LOOP)_S 8791 11867 _m
(Page)_S 61 _t
(2)_S 1500 10986 _m
/HelveticaR 660 _ff
(XLISP)_S 73 _t
(COMMAND)_S 73 _t
(LOOP)_S /Times-RomanR 550 _ff
1500 10550 _m
(When)_S 48 _t
(XLISP)_S 49 _t
(is)_S 48 _t
(started,)_S 48 _t
(it)_S 49 _t
(\256rst)_S 48 _t
(tries)_S 48 _t
(to)_S 49 _t
(load)_S 48 _t
(the)_S 49 _t
(workspace)_S 48 _t
("xlisp.wks",)_S 48 _t
(or)_S 49 _t
(an)_S 48 _t
(alternative)_S 48 _t
(\256le)_S 49 _t
(speci\256ed)_S 48 _t
(with)_S 1500 10334 _m
(the)_S 70 _t
("-w\256lename")_S 69 _t
(option,)_S 69 _t
(from)_S 69 _t
(the)_S 69 _t
(current)_S 69 _t
(directory)_S -12 _t
(.)_S 70 _t
(If)_S 69 _t
(that)_S 69 _t
(\256le)_S 69 _t
(doesn't)_S 69 _t
(exist,)_S 69 _t
(or)_S 70 _t
(the)_S 69 _t
("-w")_S 69 _t
(\257ag)_S 69 _t
(is)_S 69 _t
(in)_S 69 _t
(the)_S 1500 10118 _m
(command)_S 61 _t
(line,)_S 61 _t
(XLISP)_S 60 _t
(builds)_S 61 _t
(an)_S 61 _t
(initial)_S 60 _t
(workspace,)_S 61 _t
(empty)_S 61 _t
(except)_S 60 _t
(for)_S 61 _t
(the)_S 61 _t
(built-in)_S 60 _t
(functions)_S 61 _t
(and)_S 60 _t
(symbols.)_S 1500 9686 _m
(Then,)_S 73 _t
(providing)_S 74 _t
(providing)_S 74 _t
(no)_S 74 _t
(workspace)_S 74 _t
(\256le)_S 73 _t
(was)_S 74 _t
(loaded,)_S 148 _t
(XLISP)_S 74 _t
(attempts)_S 73 _t
(to)_S 74 _t
(load)_S 74 _t
("init.lsp")_S 74 _t
(from)_S 74 _t
(the)_S 1500 9470 _m
(current)_S 49 _t
(directory)_S -12 _t
(.)_S 49 _t
(It)_S 48 _t
(then)_S 49 _t
(loads)_S 49 _t
(any)_S 48 _t
(\256les)_S 49 _t
(named)_S 49 _t
(as)_S 48 _t
(parameters)_S 49 _t
(on)_S 49 _t
(the)_S 48 _t
(command)_S 49 _t
(line)_S 49 _t
(\(after)_S 48 _t
(appending)_S 49 _t
(".lsp")_S 1500 9254 _m
(to)_S 65 _t
(their)_S 64 _t
(names\).)_S 65 _t
(If)_S 65 _t
(the)_S 65 _t
("-v")_S 65 _t
(\257ag)_S 64 _t
(is)_S 65 _t
(in)_S 65 _t
(the)_S 65 _t
(command)_S 65 _t
(line,)_S 64 _t
(then)_S 65 _t
(the)_S 65 _t
(\256les)_S 64 _t
(are)_S 65 _t
(loaded)_S 65 _t
(verbosely)_S -12 _t
(.)_S 65 _t
(The)_S 65 _t
(option)_S 1500 9038 _m
("-t\256lename")_S 61 _t
(will)_S 61 _t
(open)_S 61 _t
(a)_S 61 _t
(transcript)_S 61 _t
(\256le)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(name)_S 61 _t
("\256lename".)_S 1500 8606 _m
(XLISP)_S 61 _t
(then)_S 61 _t
(issues)_S 61 _t
(the)_S 61 _t
(following)_S 61 _t
(prompt)_S 61 _t
(\(unless)_S 61 _t
(standard)_S 61 _t
(input)_S 61 _t
(has)_S 61 _t
(been)_S 61 _t
(redirected\):)_S 1500 8174 _m
(>)_S 1500 7742 _m
(This)_S 61 _t
(indicates)_S 61 _t
(that)_S 61 _t
(XLISP)_S 61 _t
(is)_S 61 _t
(waiting)_S 61 _t
(for)_S 61 _t
(an)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(typed.)_S 1500 7310 _m
(When)_S 94 _t
(a)_S 94 _t
(complete)_S 94 _t
(expression)_S 93 _t
(has)_S 94 _t
(been)_S 94 _t
(entered,)_S 94 _t
(XLISP)_S 94 _t
(attempts)_S 94 _t
(to)_S 94 _t
(evaluate)_S 94 _t
(that)_S 93 _t
(expression.)_S 94 _t
(If)_S 94 _t
(the)_S 1500 7094 _m
(expression)_S 61 _t
(evaluates)_S 61 _t
(successfully)_S -12 _t
(,)_S 61 _t
(XLISP)_S 61 _t
(prints)_S 61 _t
(the)_S 61 _t
(result)_S 61 _t
(and)_S 61 _t
(then)_S 61 _t
(returns)_S 61 _t
(for)_S 61 _t
(another)_S 61 _t
(expression.)_S 1500 6662 _m
(The)_S 61 _t
(following)_S 61 _t
(control)_S 61 _t
(characters)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(used)_S 61 _t
(while)_S 61 _t
(XLISP)_S 61 _t
(is)_S 61 _t
(waiting)_S 61 _t
(for)_S 61 _t
(input:)_S 2100 6230 _m
(Backspace)_S 3300 6230 _m
(delete)_S 61 _t
(last)_S 61 _t
(character)_S 2100 6014 _m
(Del)_S 3300 6014 _m
(delete)_S 61 _t
(last)_S 61 _t
(character)_S 2100 5798 _m
(tab)_S 3300 5798 _m
(tabs)_S 61 _t
(over)_S 61 _t
(\(treated)_S 61 _t
(as)_S 61 _t
(space)_S 61 _t
(by)_S 61 _t
(XLISP)_S 61 _t
(reader\))_S 2100 5582 _m
(ctrl-C)_S 3300 5582 _m
(goto)_S 61 _t
(top)_S 61 _t
(level)_S 2100 5366 _m
(ctrl-G)_S 3300 5366 _m
(cleanup)_S 61 _t
(and)_S 61 _t
(return)_S 61 _t
(one)_S 61 _t
(level)_S 2100 5150 _m
(ctrl-Z)_S 3300 5150 _m
(end)_S 61 _t
(of)_S 61 _t
(\256le)_S 61 _t
(\(returns)_S 61 _t
(one)_S 61 _t
(level)_S 61 _t
(or)_S 61 _t
(exits)_S 61 _t
(program\))_S 2100 4934 _m
(ctrl-P)_S 3300 4934 _m
(proceed)_S 61 _t
(\(continue\))_S 2100 4718 _m
(ctrl-T)_S 3300 4718 _m
(print)_S 61 _t
(information)_S 61 _t
(\(added)_S 61 _t
(function)_S 61 _t
(by)_S 61 _t
(T)_S -15 _t
(AA\))_S 1500 4286 _m
(Under)_S 84 _t
(MS-DOS)_S 83 _t
(the)_S 84 _t
(following)_S 84 _t
(control)_S 84 _t
(characters)_S 84 _t
(can)_S 83 _t
(be)_S 84 _t
(typed)_S 84 _t
(while)_S 84 _t
(XLISP)_S 83 _t
(is)_S 84 _t
(executing)_S 84 _t
(\(providing)_S 1500 4070 _m
(standard)_S 61 _t
(input)_S 61 _t
(has)_S 61 _t
(not)_S 61 _t
(been)_S 61 _t
(redirected)_S 61 _t
(away)_S 61 _t
(from)_S 61 _t
(the)_S 61 _t
(console\):)_S 2100 3638 _m
(ctrl-B)_S 3300 3638 _m
(BREAK)_S 61 _t
(--)_S 61 _t
(enter)_S 61 _t
(break)_S 61 _t
(loop)_S 2100 3422 _m
(ctrl-S)_S 3300 3422 _m
(Pause)_S 61 _t
(until)_S 61 _t
(another)_S 61 _t
(key)_S 61 _t
(is)_S 61 _t
(struck)_S 2100 3206 _m
(ctrl-C)_S 3300 3206 _m
(go)_S 61 _t
(to)_S 61 _t
(top)_S 61 _t
(level)_S 61 _t
(\(if)_S 61 _t
(lucky:)_S 61 _t
(ctrl-B,ctrl-C)_S 61 _t
(is)_S 61 _t
(safer\))_S 2100 2990 _m
(ctrl-T)_S 3300 2990 _m
(print)_S 61 _t
(information)_S 1500 2558 _m
(Under)_S 53 _t
(MS-DOS)_S 54 _t
(if)_S 53 _t
(the)_S 53 _t
(global)_S 53 _t
(variable)_S 54 _t
(*dos-input*)_S 53 _t
(is)_S 53 _t
(set)_S 53 _t
(non-NIL,)_S 54 _t
(DOS)_S 53 _t
(is)_S 53 _t
(used)_S 53 _t
(to)_S 54 _t
(read)_S 53 _t
(entire)_S 53 _t
(input)_S 53 _t
(lines.)_S 1500 2342 _m
(Operation)_S 49 _t
(this)_S 49 _t
(way)_S 49 _t
(is)_S 49 _t
(convenient)_S 49 _t
(if)_S 49 _t
(certain)_S 49 _t
(DOS)_S 49 _t
(utilities,)_S 49 _t
(such)_S 49 _t
(as)_S 49 _t
(CED,)_S 49 _t
(are)_S 49 _t
(used,)_S 49 _t
(or)_S 49 _t
(if)_S 49 _t
(XLISP)_S 49 _t
(is)_S 49 _t
(run)_S 49 _t
(under)_S 1500 2126 _m
(an)_S 52 _t
(editor)_S 53 _t
(like)_S 52 _t
(EPSILON.)_S 52 _t
(In)_S 53 _t
(this)_S 52 _t
(case,)_S 52 _t
(normal)_S 53 _t
(command)_S 52 _t
(line)_S 52 _t
(editing)_S 53 _t
(is)_S 52 _t
(available,)_S 52 _t
(but)_S 53 _t
(the)_S 52 _t
(control)_S 53 _t
(keys)_S 52 _t
(will)_S 1500 1910 _m
(not)_S 86 _t
(work)_S 86 _t
(\(in)_S 87 _t
(particular)_S -7 _t
(,)_S 86 _t
(ctrl-C)_S 86 _t
(will)_S 87 _t
(cause)_S 86 _t
(the)_S 86 _t
(program)_S 87 _t
(to)_S 86 _t
(exit!\).)_S 87 _t
(Use)_S 86 _t
(the)_S 86 _t
(XLISP)_S 87 _t
(functions)_S 86 _t
(top-level,)_S 1500 1694 _m
(clean-up,)_S 61 _t
(and)_S 61 _t
(continue)_S 61 _t
(instead)_S 61 _t
(of)_S 61 _t
(ctrl-C,)_S 61 _t
(ctrl-G,)_S 61 _t
(and)_S 61 _t
(ctrl-P)_S -20 _t
(.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4300 11867 _m
(BREAK)_S 61 _t
(COMMAND)_S 61 _t
(LOOP)_S 8791 11867 _m
(Page)_S 61 _t
(3)_S 1500 10986 _m
/HelveticaR 660 _ff
(BREAK)_S 73 _t
(COMMAND)_S 73 _t
(LOOP)_S /Times-RomanR 550 _ff
1500 10550 _m
(When)_S 66 _t
(XLISP)_S 66 _t
(encounters)_S 66 _t
(an)_S 65 _t
(error)_S 66 _t
(while)_S 66 _t
(evaluating)_S 66 _t
(an)_S 66 _t
(expression,)_S 66 _t
(it)_S 66 _t
(attempts)_S 66 _t
(to)_S 66 _t
(handle)_S 65 _t
(the)_S 66 _t
(error)_S 66 _t
(in)_S 66 _t
(the)_S 1500 10334 _m
(following)_S 61 _t
(way:)_S 1500 9902 _m
(If)_S 67 _t
(the)_S 67 _t
(symbol)_S 67 _t
('*breakenable*')_S 67 _t
(is)_S 67 _t
(true,)_S 68 _t
(the)_S 67 _t
(message)_S 67 _t
(corresponding)_S 67 _t
(to)_S 67 _t
(the)_S 67 _t
(error)_S 67 _t
(is)_S 67 _t
(printed.)_S 67 _t
(If)_S 67 _t
(the)_S 68 _t
(error)_S 67 _t
(is)_S 1500 9686 _m
(correctable,)_S 61 _t
(the)_S 61 _t
(correction)_S 61 _t
(message)_S 61 _t
(is)_S 61 _t
(printed.)_S 1500 9254 _m
(If)_S 51 _t
(the)_S 51 _t
(symbol)_S 51 _t
('*tracenable*')_S 51 _t
(is)_S 51 _t
(true,)_S 51 _t
(a)_S 51 _t
(trace)_S 51 _t
(back)_S 51 _t
(is)_S 50 _t
(printed.)_S 51 _t
(The)_S 51 _t
(number)_S 51 _t
(of)_S 51 _t
(entries)_S 51 _t
(printed)_S 51 _t
(depends)_S 51 _t
(on)_S 51 _t
(the)_S 1500 9038 _m
(value)_S 50 _t
(of)_S 50 _t
(the)_S 50 _t
(symbol)_S 50 _t
('*tracelimit*'.)_S 50 _t
(If)_S 50 _t
(this)_S 51 _t
(symbol)_S 50 _t
(is)_S 50 _t
(set)_S 50 _t
(to)_S 50 _t
(something)_S 50 _t
(other)_S 50 _t
(than)_S 50 _t
(a)_S 51 _t
(number)_S -7 _t
(,)_S 50 _t
(the)_S 50 _t
(entire)_S 50 _t
(trace)_S 1500 8822 _m
(back)_S 61 _t
(stack)_S 61 _t
(is)_S 61 _t
(printed.)_S 1500 8390 _m
(XLISP)_S 64 _t
(then)_S 63 _t
(enters)_S 64 _t
(a)_S 64 _t
(read/eval/print)_S 64 _t
(loop)_S 64 _t
(to)_S 64 _t
(allow)_S 64 _t
(the)_S 63 _t
(user)_S 64 _t
(to)_S 64 _t
(examine)_S 64 _t
(the)_S 64 _t
(state)_S 64 _t
(of)_S 64 _t
(the)_S 64 _t
(interpreter)_S 64 _t
(in)_S 64 _t
(the)_S 1500 8174 _m
(context)_S 68 _t
(of)_S 68 _t
(the)_S 68 _t
(error)_S -10 _t
(.)_S 67 _t
(This)_S 68 _t
(loop)_S 68 _t
(differs)_S 68 _t
(from)_S 68 _t
(the)_S 68 _t
(normal)_S 68 _t
(top-level)_S 68 _t
(read/eval/print)_S 68 _t
(loop)_S 68 _t
(in)_S 68 _t
(that)_S 68 _t
(if)_S 68 _t
(the)_S 68 _t
(user)_S 1500 7958 _m
(invokes)_S 72 _t
(the)_S 72 _t
(function)_S 72 _t
('continue',)_S 72 _t
(XLISP)_S 72 _t
(will)_S 72 _t
(continue)_S 72 _t
(from)_S 72 _t
(a)_S 72 _t
(correctable)_S 72 _t
(error)_S -10 _t
(.)_S 72 _t
(If)_S 72 _t
(the)_S 72 _t
(user)_S 72 _t
(invokes)_S 71 _t
(the)_S 1500 7742 _m
(function)_S 88 _t
('clean-up',)_S 87 _t
(XLISP)_S 88 _t
(will)_S 88 _t
(abort)_S 88 _t
(the)_S 87 _t
(break)_S 88 _t
(loop)_S 88 _t
(and)_S 88 _t
(return)_S 87 _t
(to)_S 88 _t
(the)_S 88 _t
(top)_S 88 _t
(level)_S 87 _t
(or)_S 88 _t
(the)_S 88 _t
(next)_S 88 _t
(lower)_S 1500 7526 _m
(numbered)_S 61 _t
(break)_S 61 _t
(loop.)_S 61 _t
(When)_S 61 _t
(in)_S 61 _t
(a)_S 61 _t
(break)_S 61 _t
(loop,)_S 61 _t
(XLISP)_S 61 _t
(pre\256xes)_S 61 _t
(the)_S 61 _t
(break)_S 61 _t
(level)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(normal)_S 61 _t
(prompt.)_S 1500 7094 _m
(If)_S 69 _t
(the)_S 70 _t
(symbol)_S 70 _t
('*breakenable*')_S 69 _t
(is)_S 70 _t
(NIL,)_S 70 _t
(XLISP)_S 69 _t
(looks)_S 70 _t
(for)_S 70 _t
(a)_S 70 _t
(surrounding)_S 69 _t
(errset)_S 70 _t
(function.)_S 70 _t
(If)_S 69 _t
(one)_S 70 _t
(is)_S 70 _t
(found,)_S 1500 6878 _m
(XLISP)_S 57 _t
(examines)_S 58 _t
(the)_S 57 _t
(value)_S 58 _t
(of)_S 57 _t
(the)_S 58 _t
(print)_S 57 _t
(\257ag.)_S 58 _t
(If)_S 57 _t
(this)_S 58 _t
(\257ag)_S 57 _t
(is)_S 58 _t
(true,)_S 57 _t
(the)_S 58 _t
(error)_S 57 _t
(message)_S 58 _t
(is)_S 57 _t
(printed.)_S 58 _t
(In)_S 57 _t
(any)_S 58 _t
(case,)_S 1500 6662 _m
(XLISP)_S 61 _t
(causes)_S 61 _t
(the)_S 61 _t
(errset)_S 61 _t
(function)_S 61 _t
(call)_S 61 _t
(to)_S 61 _t
(return)_S 61 _t
(NIL.)_S 1500 6230 _m
(If)_S 61 _t
(there)_S 61 _t
(is)_S 61 _t
(no)_S 61 _t
(surrounding)_S 61 _t
(errset)_S 61 _t
(function,)_S 61 _t
(XLISP)_S 61 _t
(prints)_S 61 _t
(the)_S 61 _t
(error)_S 61 _t
(message)_S 61 _t
(and)_S 61 _t
(returns)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(top)_S 61 _t
(level.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4835 11867 _m
(DATA)_S 61 _t
(TYPES)_S 8791 11867 _m
(Page)_S 61 _t
(4)_S 1500 10986 _m
/HelveticaR 660 _ff
(DA)_S -15 _t
(T)_S -15 _t
(A)_S 73 _t
(TYPES)_S /Times-RomanR 550 _ff
1500 10550 _m
(There)_S 70 _t
(are)_S 69 _t
(several)_S 69 _t
(different)_S 69 _t
(data)_S 69 _t
(types)_S 70 _t
(available)_S 69 _t
(to)_S 69 _t
(XLISP-PLUS)_S 69 _t
(programmers.)_S 69 _t
(T)_S -13 _t
(ypical)_S 69 _t
(implementation)_S 1500 10334 _m
(limits)_S 109 _t
(are)_S 109 _t
(shown)_S 109 _t
(for)_S 109 _t
(32)_S 109 _t
(bit)_S 109 _t
(word)_S 109 _t
(systems.)_S 109 _t
(V)_S -20 _t
(alues)_S 110 _t
(in)_S 109 _t
(square)_S 109 _t
(brackets)_S 109 _t
(apply)_S 109 _t
(to)_S 109 _t
(16)_S 109 _t
(bit)_S 109 _t
(MS-DOS)_S 1500 10118 _m
(implementations.)_S 1500 9686 _m
(All)_S 96 _t
(data)_S 96 _t
(nodes)_S 95 _t
(are)_S 96 _t
(effectively)_S 96 _t
(cons)_S 96 _t
(cells)_S 96 _t
(consisting)_S 96 _t
(of)_S 95 _t
(two)_S 96 _t
(pointers)_S 96 _t
(and)_S 96 _t
(and)_S 96 _t
(one)_S 95 _t
(or)_S 96 _t
(two)_S 96 _t
(bytes)_S 96 _t
(of)_S 1500 9470 _m
(identi\256cation)_S 75 _t
(\257ags)_S 74 _t
(\(9)_S 75 _t
(or)_S 74 _t
(10)_S 75 _t
(bytes)_S 74 _t
(per)_S 75 _t
(cell\).)_S 74 _t
(Node)_S 74 _t
(space)_S 75 _t
(is)_S 74 _t
(managed)_S 75 _t
(and)_S 74 _t
(garbage)_S 75 _t
(collected)_S 74 _t
(by)_S 74 _t
(XLISP)_S -20 _t
(.)_S 1500 9254 _m
(Array)_S 44 _t
(and)_S 44 _t
(string)_S 45 _t
(storage)_S 44 _t
(is)_S 44 _t
(either)_S 45 _t
(allocated)_S 44 _t
(by)_S 44 _t
(the)_S 45 _t
(C)_S 44 _t
(runtime)_S 44 _t
(or)_S 44 _t
(managed)_S 45 _t
(and)_S 44 _t
(garbaged)_S 44 _t
(collected)_S 45 _t
(by)_S 44 _t
(XLISP)_S 1500 9038 _m
(\(compilation)_S 68 _t
(option\).)_S 68 _t
(If)_S 67 _t
(C)_S 68 _t
(does)_S 68 _t
(the)_S 68 _t
(allocation,)_S 67 _t
(memory)_S 68 _t
(fragmentation)_S 68 _t
(can)_S 67 _t
(occur)_S -10 _t
(.)_S 68 _t
(Fragmentation)_S 68 _t
(can)_S 67 _t
(be)_S 1500 8822 _m
(eliminated)_S 61 _t
(by)_S 61 _t
(saving)_S 61 _t
(the)_S 61 _t
(image)_S 61 _t
(and)_S 61 _t
(restarting)_S 61 _t
(XLISP-PLUS.)_S 1500 8174 _m
(\267)_S 2100 8174 _m
(NIL)_S 2100 7958 _m
(Unlike)_S 60 _t
(the)_S 60 _t
(original)_S 59 _t
(XLISP)_S -20 _t
(,)_S 60 _t
(NIL)_S 60 _t
(is)_S 59 _t
(a)_S 60 _t
(symbol)_S 59 _t
(\(although)_S 60 _t
(not)_S 60 _t
(in)_S 59 _t
(the)_S 60 _t
(*obarray*\),)_S 60 _t
(to)_S 60 _t
(allowing)_S 59 _t
(setting)_S 2100 7742 _m
(its)_S 61 _t
(properties.)_S 1500 7526 _m
(\267)_S 2100 7526 _m
(lists)_S 2100 7310 _m
(Either)_S 61 _t
(NIL)_S 61 _t
(or)_S 61 _t
(a)_S 61 _t
(CDR-linked)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(cons)_S 62 _t
(cells,)_S 61 _t
(terminated)_S 61 _t
(by)_S 61 _t
(a)_S 61 _t
(symbol)_S 61 _t
(\(typically)_S 62 _t
(NIL\).)_S 61 _t
(Circular)_S 2100 7094 _m
(lists)_S 57 _t
(are)_S 58 _t
(allowable,)_S 58 _t
(but)_S 58 _t
(can)_S 58 _t
(cause)_S 58 _t
(problems)_S 58 _t
(with)_S 58 _t
(some)_S 58 _t
(functions)_S 58 _t
(so)_S 58 _t
(they)_S 58 _t
(must)_S 58 _t
(be)_S 58 _t
(used)_S 58 _t
(with)_S 58 _t
(care.)_S 1500 6878 _m
(\267)_S 2100 6878 _m
(arrays)_S 2100 6662 _m
(The)_S 50 _t
(CDR)_S 49 _t
(\256eld)_S 50 _t
(of)_S 49 _t
(an)_S 49 _t
(array)_S 50 _t
(points)_S 49 _t
(to)_S 50 _t
(the)_S 49 _t
(dynamically)_S 49 _t
(allocated)_S 50 _t
(data)_S 49 _t
(array)_S -12 _t
(,)_S 50 _t
(while)_S 49 _t
(the)_S 50 _t
(CAR)_S 49 _t
(contains)_S 2100 6446 _m
(the)_S 54 _t
(integer)_S 54 _t
(length)_S 55 _t
(of)_S 54 _t
(the)_S 54 _t
(array)_S -12 _t
(.)_S 55 _t
(Elements)_S 54 _t
(in)_S 54 _t
(the)_S 55 _t
(data)_S 54 _t
(array)_S 54 _t
(are)_S 55 _t
(pointers)_S 54 _t
(to)_S 55 _t
(other)_S 54 _t
(cells)_S 54 _t
([Size)_S 55 _t
(limited)_S 2100 6230 _m
(to)_S 61 _t
(about)_S 61 _t
(16360].)_S 1500 6014 _m
(\267)_S 2100 6014 _m
(character)_S 61 _t
(strings)_S 2100 5798 _m
(Implemented)_S 65 _t
(like)_S 65 _t
(arrays,)_S 65 _t
(except)_S 65 _t
(string)_S 65 _t
(array)_S 65 _t
(is)_S 65 _t
(byte)_S 65 _t
(indexed)_S 65 _t
(and)_S 66 _t
(contains)_S 65 _t
(the)_S 65 _t
(actual)_S 65 _t
(characters.)_S 2100 5582 _m
(Note)_S 72 _t
(that)_S 72 _t
(unlike)_S 72 _t
(the)_S 72 _t
(underlying)_S 72 _t
(C,)_S 72 _t
(the)_S 72 _t
(null)_S 71 _t
(character)_S 72 _t
(\(value)_S 72 _t
(0\))_S 72 _t
(is)_S 72 _t
(valid.)_S 72 _t
([Size)_S 72 _t
(limited)_S 72 _t
(to)_S 72 _t
(about)_S 2100 5366 _m
(65500])_S 1500 5150 _m
(\267)_S 2100 5150 _m
(symbols)_S 2100 4934 _m
(Implemented)_S 65 _t
(as)_S 64 _t
(a)_S 65 _t
(4)_S 65 _t
(element)_S 64 _t
(array)_S -12 _t
(.)_S 65 _t
(The)_S 65 _t
(elements)_S 64 _t
(are)_S 65 _t
(value)_S 65 _t
(cell,)_S 64 _t
(function)_S 65 _t
(cell,)_S 65 _t
(property)_S 64 _t
(list,)_S 65 _t
(and)_S 2100 4718 _m
(print)_S 69 _t
(name)_S 70 _t
(\(a)_S 69 _t
(character)_S 69 _t
(string)_S 70 _t
(node\).)_S 69 _t
(Print)_S 69 _t
(names)_S 70 _t
(are)_S 69 _t
(limited)_S 69 _t
(to)_S 70 _t
(100)_S 69 _t
(characters.)_S 69 _t
(There)_S 70 _t
(are)_S 69 _t
(also)_S 2100 4502 _m
(\257ags)_S 87 _t
(for)_S 86 _t
(constant)_S 87 _t
(and)_S 87 _t
(special.)_S 87 _t
(V)_S -20 _t
(alues)_S 86 _t
(bound)_S 87 _t
(to)_S 87 _t
(special)_S 87 _t
(symbols)_S 86 _t
(\(declared)_S 87 _t
(with)_S 87 _t
(DEFV)_S -23 _t
(AR)_S 87 _t
(or)_S 2100 4286 _m
(DEFP)_S -17 _t
(ARAMETER\))_S 61 _t
(are)_S 61 _t
(always)_S 61 _t
(dynamically)_S 61 _t
(bound,)_S 61 _t
(rather)_S 61 _t
(than)_S 61 _t
(being)_S 61 _t
(lexically)_S 61 _t
(bound.)_S 1500 4070 _m
(\267)_S 2100 4070 _m
(\256xnums)_S 61 _t
(\(integers\))_S 2100 3854 _m
(Small)_S 58 _t
(integers)_S 58 _t
(\(>)_S 59 _t
(-129)_S 58 _t
(and)_S 59 _t
(<256\))_S 58 _t
(are)_S 58 _t
(statically)_S 59 _t
(allocated)_S 58 _t
(and)_S 59 _t
(are)_S 58 _t
(thus)_S 58 _t
(always)_S 59 _t
(EQ)_S 58 _t
(integers)_S 59 _t
(of)_S 58 _t
(the)_S 2100 3638 _m
(same)_S 61 _t
(value.)_S 61 _t
(The)_S 61 _t
(CAR)_S 61 _t
(\256eld)_S 61 _t
(is)_S 61 _t
(used)_S 61 _t
(to)_S 61 _t
(hold)_S 61 _t
(the)_S 61 _t
(value,)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(32)_S 61 _t
(bit)_S 61 _t
(signed)_S 61 _t
(integer)_S -10 _t
(.)_S 1500 3422 _m
(\267)_S 2100 3422 _m
(ratios)_S 2100 3206 _m
(The)_S 48 _t
(CAR)_S 48 _t
(\256eld)_S 48 _t
(is)_S 48 _t
(used)_S 48 _t
(to)_S 47 _t
(hold)_S 48 _t
(the)_S 48 _t
(numerator)_S 48 _t
(while)_S 47 _t
(the)_S 48 _t
(CDR)_S 48 _t
(\256eld)_S 48 _t
(is)_S 47 _t
(used)_S 48 _t
(to)_S 48 _t
(hold)_S 48 _t
(the)_S 47 _t
(denominator)_S -10 _t
(.)_S 2100 2990 _m
(The)_S 61 _t
(numerator)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(32)_S 61 _t
(bit)_S 61 _t
(signed)_S 61 _t
(value)_S 61 _t
(while)_S 61 _t
(the)_S 61 _t
(denominator)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(31)_S 61 _t
(bit)_S 61 _t
(positive)_S 61 _t
(value.)_S 1500 2774 _m
(\267)_S 2100 2774 _m
(characters)_S 2100 2558 _m
(All)_S 44 _t
(characters)_S 44 _t
(are)_S 45 _t
(statically)_S 44 _t
(allocated)_S 44 _t
(and)_S 45 _t
(are)_S 44 _t
(thus)_S 44 _t
(EQ)_S 44 _t
(characters)_S 45 _t
(of)_S 44 _t
(the)_S 44 _t
(same)_S 45 _t
(value.)_S 44 _t
(The)_S 44 _t
(CAR)_S 45 _t
(\256eld)_S 2100 2342 _m
(is)_S 59 _t
(used)_S 59 _t
(to)_S 59 _t
(hold)_S 59 _t
(the)_S 59 _t
(value.)_S 58 _t
(In)_S 59 _t
(XLISP)_S 59 _t
(characters)_S 59 _t
(are)_S 58 _t
("unsigned")_S 59 _t
(and)_S 59 _t
(thus)_S 59 _t
(range)_S 58 _t
(in)_S 59 _t
(value)_S 59 _t
(from)_S 59 _t
(0)_S 58 _t
(to)_S 2100 2126 _m
(255.)_S 1500 1910 _m
(\267)_S 2100 1910 _m
(\257onums)_S 61 _t
(\(\257oating)_S 61 _t
(point)_S 61 _t
(numbers\))_S 2100 1694 _m
(The)_S 53 _t
(CAR)_S 54 _t
(and)_S 53 _t
(CDR)_S 53 _t
(\256elds)_S 53 _t
(hold)_S 54 _t
(the)_S 53 _t
(value,)_S 53 _t
(which)_S 53 _t
(is)_S 54 _t
(typically)_S 53 _t
(a)_S 53 _t
(64)_S 54 _t
(bit)_S 53 _t
(IEEE)_S 54 _t
(\257oating)_S 53 _t
(point)_S 53 _t
(number)_S -10 _t
(.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4835 11867 _m
(DATA)_S 61 _t
(TYPES)_S 8791 11867 _m
(Page)_S 61 _t
(5)_S 1500 11235 _m
(\267)_S 2100 11235 _m
(complex)_S 61 _t
(numbers)_S 2100 11019 _m
(Part)_S 51 _t
(of)_S 52 _t
(the)_S 52 _t
(math)_S 52 _t
(extension)_S 52 _t
(compilation)_S 52 _t
(option.)_S 52 _t
(Internally)_S 52 _t
(implemented)_S 52 _t
(as)_S 52 _t
(an)_S 52 _t
(array)_S 52 _t
(of)_S 52 _t
(the)_S 52 _t
(real)_S 52 _t
(and)_S 2100 10803 _m
(imaginary)_S 47 _t
(parts.)_S 47 _t
(The)_S 47 _t
(parts)_S 47 _t
(can)_S 46 _t
(be)_S 47 _t
(either)_S 47 _t
(both)_S 47 _t
(\256xnums)_S 47 _t
(or)_S 47 _t
(both)_S 46 _t
(\257onums.)_S 47 _t
(Any)_S 47 _t
(function)_S 46 _t
(which)_S 47 _t
(would)_S 2100 10587 _m
(return)_S 61 _t
(an)_S 61 _t
(\256xnum)_S 61 _t
(complex)_S 61 _t
(number)_S 61 _t
(with)_S 61 _t
(a)_S 61 _t
(zero)_S 61 _t
(imaginary)_S 61 _t
(part)_S 61 _t
(returns)_S 61 _t
(just)_S 61 _t
(the)_S 61 _t
(\256xnum.)_S 1500 10371 _m
(\267)_S 2100 10371 _m
(objects)_S 2100 10155 _m
(Implemented)_S 68 _t
(as)_S 67 _t
(an)_S 68 _t
(array)_S 67 _t
(of)_S 68 _t
(instance)_S 68 _t
(variable)_S 67 _t
(count)_S 68 _t
(plus)_S 67 _t
(one)_S 68 _t
(elements.)_S 67 _t
(The)_S 68 _t
(\256rst)_S 68 _t
(element)_S 67 _t
(is)_S 68 _t
(the)_S 2100 9939 _m
(object's)_S 61 _t
(class,)_S 61 _t
(while)_S 61 _t
(the)_S 61 _t
(remaining)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(are)_S 61 _t
(the)_S 61 _t
(instance)_S 61 _t
(variables.)_S 1500 9723 _m
(\267)_S 2100 9723 _m
(streams)_S 61 _t
(\(\256le\))_S 2100 9507 _m
(The)_S 61 _t
(CAR)_S 61 _t
(and)_S 61 _t
(CDR)_S 61 _t
(\256elds)_S 61 _t
(are)_S 61 _t
(used)_S 61 _t
(in)_S 61 _t
(a)_S 61 _t
(system)_S 61 _t
(dependent)_S 61 _t
(way)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(\256le)_S 61 _t
(pointer)_S -10 _t
(.)_S 1500 9291 _m
(\267)_S 61 _t
2100 9291 _m
(streams)_S 61 _t
(\(unnamed)_S 61 _t
(--)_S 61 _t
(string\))_S 2100 9075 _m
(Implemented)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(tconc-style)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(characters.)_S 1500 8859 _m
(\267)_S 2100 8859 _m
(subrs)_S 61 _t
(\(built-in)_S 61 _t
(functions\))_S 2100 8643 _m
(The)_S 57 _t
(CAR)_S 56 _t
(\256eld)_S 56 _t
(points)_S 57 _t
(to)_S 56 _t
(the)_S 56 _t
(actual)_S 56 _t
(code)_S 57 _t
(to)_S 56 _t
(execute,)_S 56 _t
(while)_S 57 _t
(the)_S 56 _t
(CDR)_S 56 _t
(\256eld)_S 56 _t
(is)_S 57 _t
(an)_S 56 _t
(internal)_S 56 _t
(pointer)_S 56 _t
(to)_S 2100 8427 _m
(the)_S 61 _t
(name)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function.)_S 1500 8211 _m
(\267)_S 2100 8211 _m
(fsubrs)_S 61 _t
(\(special)_S 61 _t
(forms\))_S 2100 7995 _m
(Same)_S 61 _t
(implementation)_S 61 _t
(as)_S 61 _t
(subrs.)_S 1500 7779 _m
(\267)_S 2100 7779 _m
(closures)_S 61 _t
(\(user)_S 61 _t
(de\256ned)_S 61 _t
(functions\))_S 2100 7563 _m
(Implemented)_S 61 _t
(as)_S 61 _t
(an)_S 61 _t
(array)_S 61 _t
(of)_S 61 _t
(11)_S 61 _t
(elements:)_S 2100 7347 _m
(1.)_S 2700 7347 _m
(name)_S 61 _t
(symbol)_S 61 _t
(or)_S 61 _t
(NIL)_S 2100 7131 _m
(2.)_S 2700 7131 _m
('lambda)_S 61 _t
(or)_S 61 _t
('macro)_S 2100 6915 _m
(3.)_S 2700 6915 _m
(list)_S 61 _t
(of)_S 61 _t
(required)_S 61 _t
(ar)_S -3 _t
(guments)_S 2100 6699 _m
(4.)_S 2700 6699 _m
(optional)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(as)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(\(<ar)_S -3 _t
(g>)_S 61 _t
(<init>)_S 61 _t
(<speci\256ed-p>\))_S 61 _t
(triples.)_S 2100 6483 _m
(5.)_S 2700 6483 _m
(&rest)_S 61 _t
(ar)_S -3 _t
(gument)_S 2100 6267 _m
(6.)_S 2700 6267 _m
(&key)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(as)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(\(<key>)_S 61 _t
(<ar)_S -3 _t
(g>)_S 61 _t
(<init>)_S 61 _t
(<speci\256ed-p>\))_S 61 _t
(quadruples.)_S 2100 6051 _m
(7.)_S 2700 6051 _m
(&aux)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(as)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(\(<ar)_S -3 _t
(g>)_S 61 _t
(<init>\))_S 61 _t
(pairs.)_S 2100 5835 _m
(8.)_S 2700 5835 _m
(function)_S 61 _t
(body)_S 2100 5619 _m
(9.)_S 2700 5619 _m
(value)_S 61 _t
(environment)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(75)_S 61 _t
(for)_S 61 _t
(format\))_S 2100 5403 _m
(10.)_S 2700 5403 _m
(function)_S 61 _t
(environment)_S 2100 5187 _m
(11.)_S 2700 5187 _m
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 61 _t
(\(unprocessed\))_S 1500 4971 _m
(\267)_S 2100 4971 _m
(structures)_S 2100 4755 _m
(Implemented)_S 61 _t
(as)_S 61 _t
(an)_S 61 _t
(array)_S 60 _t
(with)_S 61 _t
(\256rst)_S 61 _t
(element)_S 61 _t
(being)_S 61 _t
(a)_S 60 _t
(pointer)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(structure)_S 61 _t
(name)_S 61 _t
(string,)_S 60 _t
(and)_S 61 _t
(the)_S 2100 4539 _m
(remaining)_S 61 _t
(elements)_S 61 _t
(being)_S 61 _t
(the)_S 61 _t
(structure)_S 61 _t
(elements.)_S 1500 4323 _m
(\267)_S 2100 4323 _m
(hash-tables)_S 2100 4107 _m
(Implemented)_S 65 _t
(as)_S 65 _t
(a)_S 64 _t
(structure)_S 65 _t
(of)_S 65 _t
(varying)_S 65 _t
(length)_S 64 _t
(with)_S 65 _t
(no)_S 65 _t
(generalized)_S 64 _t
(accessing)_S 65 _t
(functions,)_S 65 _t
(but)_S 64 _t
(with)_S 2100 3891 _m
(a)_S 61 _t
(special)_S 61 _t
(print)_S 61 _t
(function)_S 61 _t
(\(print)_S 61 _t
(functions)_S 61 _t
(not)_S 61 _t
(available)_S 61 _t
(for)_S 61 _t
(standard)_S 61 _t
(structures\).)_S 1500 3675 _m
(\267)_S 2100 3675 _m
(random-states)_S 2100 3459 _m
(Implemented)_S 61 _t
(as)_S 62 _t
(a)_S 61 _t
(structure)_S 62 _t
(with)_S 61 _t
(a)_S 61 _t
(single)_S 62 _t
(element)_S 61 _t
(which)_S 62 _t
(is)_S 61 _t
(the)_S 62 _t
(random)_S 61 _t
(state)_S 61 _t
(\(here)_S 62 _t
(a)_S 61 _t
(\256xnum,)_S 62 _t
(but)_S 2100 3243 _m
(could)_S 61 _t
(change)_S 61 _t
(without)_S 61 _t
(impacting)_S 61 _t
(xlisp)_S 61 _t
(programs\).)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4631 11867 _m
(THE)_S 61 _t
(EVALUATOR)_S 8791 11867 _m
(Page)_S 61 _t
(6)_S 1500 10986 _m
/HelveticaR 660 _ff
(THE)_S 73 _t
(EV)_S -15 _t
(ALUA)_S -15 _t
(T)_S -3 _t
(OR)_S /Times-RomanR 550 _ff
1500 10550 _m
(The)_S 61 _t
(process)_S 61 _t
(of)_S 61 _t
(evaluation)_S 61 _t
(in)_S 61 _t
(XLISP:)_S 1500 10118 _m
(Strings,)_S 67 _t
(characters,)_S 66 _t
(numbers)_S 67 _t
(of)_S 66 _t
(any)_S 67 _t
(type,)_S 66 _t
(objects,)_S 67 _t
(arrays,)_S 67 _t
(structures,)_S 66 _t
(streams,)_S 67 _t
(subrs,)_S 66 _t
(fsubrs)_S 67 _t
(and)_S 66 _t
(closures)_S 1500 9902 _m
(evaluate)_S 61 _t
(to)_S 61 _t
(themselves.)_S 1500 9470 _m
(Symbols)_S 59 _t
(act)_S 59 _t
(as)_S 58 _t
(variables)_S 59 _t
(and)_S 59 _t
(are)_S 58 _t
(evaluated)_S 59 _t
(by)_S 59 _t
(retrieving)_S 59 _t
(the)_S 59 _t
(value)_S 58 _t
(associated)_S 59 _t
(with)_S 59 _t
(their)_S 59 _t
(current)_S 58 _t
(binding.)_S 1500 9038 _m
(Lists)_S 51 _t
(are)_S 50 _t
(evaluated)_S 50 _t
(by)_S 50 _t
(examining)_S 51 _t
(the)_S 50 _t
(\256rst)_S 50 _t
(element)_S 50 _t
(of)_S 51 _t
(the)_S 50 _t
(list)_S 50 _t
(and)_S 51 _t
(then)_S 50 _t
(taking)_S 50 _t
(one)_S 51 _t
(of)_S 50 _t
(the)_S 50 _t
(following)_S 50 _t
(actions:)_S 2100 8606 _m
(If)_S 61 _t
(it)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(symbol,)_S 61 _t
(the)_S 61 _t
(functional)_S 61 _t
(binding)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(symbol)_S 61 _t
(is)_S 61 _t
(retrieved.)_S 2100 8174 _m
(If)_S 71 _t
(it)_S 70 _t
(is)_S 71 _t
(a)_S 70 _t
(lambda)_S 70 _t
(expression,)_S 71 _t
(a)_S 70 _t
(closure)_S 71 _t
(is)_S 70 _t
(constructed)_S 70 _t
(for)_S 71 _t
(the)_S 70 _t
(function)_S 70 _t
(described)_S 71 _t
(by)_S 70 _t
(the)_S 70 _t
(lambda)_S 2100 7958 _m
(expression.)_S 2100 7526 _m
(If)_S 61 _t
(it)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(subr)_S -7 _t
(,)_S 61 _t
(fsubr)_S 61 _t
(or)_S 61 _t
(closure,)_S 61 _t
(it)_S 61 _t
(stands)_S 61 _t
(for)_S 61 _t
(itself.)_S 2100 7094 _m
(Any)_S 61 _t
(other)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(an)_S 61 _t
(error)_S -10 _t
(.)_S 1500 6662 _m
(Then,)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(produced)_S 61 _t
(by)_S 61 _t
(the)_S 61 _t
(previous)_S 61 _t
(step)_S 61 _t
(is)_S 61 _t
(examined:)_S 2100 6230 _m
(If)_S 75 _t
(it)_S 75 _t
(is)_S 75 _t
(a)_S 75 _t
(subr)_S 75 _t
(or)_S 75 _t
(closure,)_S 75 _t
(the)_S 75 _t
(remaining)_S 75 _t
(list)_S 75 _t
(elements)_S 75 _t
(are)_S 75 _t
(evaluated)_S 75 _t
(and)_S 75 _t
(the)_S 75 _t
(subr)_S 75 _t
(or)_S 75 _t
(closure)_S 75 _t
(is)_S 2100 6014 _m
(applied)_S 61 _t
(to)_S 61 _t
(these)_S 61 _t
(evaluated)_S 61 _t
(expressions.)_S 2100 5582 _m
(If)_S 60 _t
(it)_S 60 _t
(is)_S 61 _t
(an)_S 60 _t
(fsubr)_S -7 _t
(,)_S 61 _t
(the)_S 60 _t
(fsubr)_S 61 _t
(is)_S 60 _t
(called)_S 61 _t
(with)_S 60 _t
(the)_S 61 _t
(remaining)_S 60 _t
(list)_S 61 _t
(elements)_S 60 _t
(as)_S 61 _t
(ar)_S -3 _t
(guments)_S 60 _t
(\(unevaluated\).)_S 2100 5150 _m
(If)_S 112 _t
(it)_S 112 _t
(is)_S 112 _t
(a)_S 112 _t
(macro,)_S 112 _t
(the)_S 112 _t
(macro)_S 112 _t
(is)_S 112 _t
(expanded)_S 111 _t
(with)_S 112 _t
(the)_S 112 _t
(remaining)_S 112 _t
(list)_S 112 _t
(elements)_S 111 _t
(as)_S 112 _t
(ar)_S -3 _t
(guments)_S 2100 4934 _m
(\(unevaluated\).)_S 62 _t
(The)_S 62 _t
(macro)_S 62 _t
(expansion)_S 61 _t
(is)_S 62 _t
(then)_S 62 _t
(evaluated)_S 62 _t
(in)_S 62 _t
(place)_S 62 _t
(of)_S 61 _t
(the)_S 62 _t
(original)_S 62 _t
(macro)_S 62 _t
(call.)_S 62 _t
(If)_S 62 _t
(the)_S 2100 4718 _m
(symbol)_S 64 _t
(*displace-macros*)_S 65 _t
(is)_S 64 _t
(not)_S 64 _t
(NIL,)_S 64 _t
(then)_S 64 _t
(the)_S 64 _t
(expanded)_S 64 _t
(macro)_S 64 _t
(will)_S 64 _t
(\(destructively\))_S 64 _t
(replace)_S 64 _t
(the)_S 2100 4502 _m
(original)_S 46 _t
(macro)_S 45 _t
(expression.)_S 46 _t
(This)_S 45 _t
(means)_S 46 _t
(that)_S 45 _t
(the)_S 46 _t
(macro)_S 45 _t
(will)_S 46 _t
(only)_S 45 _t
(be)_S 46 _t
(expanded)_S 45 _t
(once,)_S 45 _t
(but)_S 46 _t
(the)_S 45 _t
(original)_S 2100 4286 _m
(code)_S 56 _t
(will)_S 56 _t
(be)_S 57 _t
(lost.)_S 56 _t
(The)_S 56 _t
(displacement)_S 56 _t
(will)_S 57 _t
(not)_S 56 _t
(take)_S 56 _t
(place)_S 57 _t
(unless)_S 56 _t
(the)_S 56 _t
(macro)_S 57 _t
(expands)_S 56 _t
(into)_S 56 _t
(a)_S 56 _t
(list.)_S 57 _t
(The)_S 2100 4070 _m
(standard)_S 70 _t
(XLISP)_S 70 _t
(practice)_S 70 _t
(is)_S 71 _t
(the)_S 70 _t
(macro)_S 70 _t
(will)_S 70 _t
(be)_S 71 _t
(expanded)_S 70 _t
(each)_S 70 _t
(time)_S 70 _t
(the)_S 71 _t
(expression)_S 70 _t
(is)_S 70 _t
(evaluated,)_S 2100 3854 _m
(which)_S 61 _t
(negates)_S 61 _t
(some)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(advantages)_S 61 _t
(of)_S 61 _t
(using)_S 61 _t
(macros.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4590 11867 _m
(HOOK)_S 61 _t
(FUNCTIONS)_S 8791 11867 _m
(Page)_S 61 _t
(7)_S 1500 10986 _m
/HelveticaR 660 _ff
(HOOK)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(The)_S 60 _t
(evalhook)_S 59 _t
(and)_S 60 _t
(applyhook)_S 59 _t
(facility)_S 60 _t
(are)_S 59 _t
(useful)_S 60 _t
(for)_S 59 _t
(implementing)_S 60 _t
(debugging)_S 59 _t
(programs)_S 59 _t
(or)_S 60 _t
(just)_S 59 _t
(observing)_S 1500 10334 _m
(the)_S 61 _t
(operation)_S 61 _t
(of)_S 61 _t
(XLISP)_S -20 _t
(.)_S 61 _t
(It)_S 61 _t
(is)_S 61 _t
(possible)_S 61 _t
(to)_S 61 _t
(control)_S 61 _t
(evaluation)_S 61 _t
(of)_S 61 _t
(forms)_S 61 _t
(in)_S 61 _t
(any)_S 61 _t
(context.)_S 1500 9902 _m
(If)_S 57 _t
(the)_S 57 _t
(symbol)_S 57 _t
('*evalhook*')_S 57 _t
(is)_S 57 _t
(bound)_S 57 _t
(to)_S 57 _t
(a)_S 58 _t
(function)_S 57 _t
(closure,)_S 57 _t
(then)_S 57 _t
(every)_S 57 _t
(call)_S 57 _t
(of)_S 57 _t
(eval)_S 57 _t
(will)_S 57 _t
(call)_S 57 _t
(this)_S 58 _t
(function.)_S 1500 9686 _m
(The)_S 77 _t
(function)_S 76 _t
(takes)_S 77 _t
(two)_S 76 _t
(ar)_S -3 _t
(guements,)_S 77 _t
(the)_S 76 _t
(form)_S 77 _t
(to)_S 77 _t
(be)_S 76 _t
(evaluated)_S 77 _t
(and)_S 76 _t
(execution)_S 77 _t
(environment.)_S 76 _t
(During)_S 77 _t
(the)_S 1500 9470 _m
(execution)_S 83 _t
(of)_S 84 _t
(this)_S 83 _t
(function,)_S 83 _t
(*evalhook*)_S 84 _t
(\(and)_S 83 _t
(*applyhook*\))_S 83 _t
(are)_S 84 _t
(dynamically)_S 83 _t
(bound)_S 84 _t
(to)_S 83 _t
(NIL)_S 83 _t
(to)_S 84 _t
(prevent)_S 1500 9254 _m
(undesirable)_S 61 _t
(recursion.)_S 61 _t
(This)_S 61 _t
("hook")_S 61 _t
(function)_S 61 _t
(returns)_S 61 _t
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(evaluation.)_S 1500 8822 _m
(If)_S 62 _t
(the)_S 62 _t
(symbol)_S 62 _t
('*applyhook*')_S 62 _t
(is)_S 62 _t
(bound)_S 62 _t
(to)_S 62 _t
(a)_S 62 _t
(function,)_S 62 _t
(then)_S 62 _t
(every)_S 62 _t
(function)_S 62 _t
(application)_S 62 _t
(within)_S 62 _t
(an)_S 62 _t
(eval)_S 62 _t
(will)_S 1500 8606 _m
(call)_S 47 _t
(this)_S 48 _t
(function)_S 48 _t
(\(note)_S 48 _t
(that)_S 47 _t
(the)_S 48 _t
(function)_S 48 _t
(apply)_S -12 _t
(,)_S 48 _t
(and)_S 47 _t
(others)_S 48 _t
(which)_S 48 _t
(do)_S 48 _t
(not)_S 47 _t
(use)_S 48 _t
(eval,)_S 48 _t
(will)_S 47 _t
(not)_S 48 _t
(invoke)_S 48 _t
(the)_S 48 _t
(apply)_S 1500 8390 _m
(hook)_S 64 _t
(function\).)_S 64 _t
(The)_S 65 _t
(function)_S 64 _t
(takes)_S 64 _t
(two)_S 64 _t
(ar)_S -3 _t
(guments,)_S 64 _t
(the)_S 64 _t
(function)_S 65 _t
(closure)_S 64 _t
(and)_S 64 _t
(the)_S 65 _t
(ar)_S -3 _t
(gument)_S 64 _t
(list)_S 64 _t
(\(which)_S 64 _t
(is)_S 1500 8174 _m
(already)_S 37 _t
(evaluated\).)_S 38 _t
(During)_S 37 _t
(execution)_S 37 _t
(of)_S 38 _t
(this)_S 37 _t
(hook)_S 37 _t
(function,)_S 37 _t
(*applyhook*)_S 38 _t
(\(and)_S 37 _t
(*evalhook*\))_S 38 _t
(are)_S 37 _t
(dynamically)_S 1500 7958 _m
(bound)_S 94 _t
(to)_S 94 _t
(NIL)_S 93 _t
(to)_S 94 _t
(prevent)_S 94 _t
(undesired)_S 94 _t
(recursion.)_S 94 _t
(This)_S 94 _t
(function)_S 93 _t
(is)_S 94 _t
(to)_S 94 _t
(return)_S 94 _t
(the)_S 93 _t
(result)_S 94 _t
(of)_S 94 _t
(the)_S 94 _t
(function)_S 1500 7742 _m
(application.)_S 1500 7310 _m
(Note)_S 67 _t
(that)_S 67 _t
(the)_S 67 _t
(hook)_S 66 _t
(functions)_S 67 _t
(cannot)_S 67 _t
(reset)_S 67 _t
(*evalhook*)_S 67 _t
(or)_S 67 _t
(*applyhook*)_S 67 _t
(to)_S 67 _t
(NIL,)_S 67 _t
(because)_S 66 _t
(upon)_S 67 _t
(exit)_S 67 _t
(these)_S 1500 7094 _m
(values)_S 47 _t
(will)_S 48 _t
(be)_S 47 _t
(reset.)_S 48 _t
(An)_S 47 _t
(excape)_S 47 _t
(mechanism)_S 48 _t
(is)_S 47 _t
(provided)_S 47 _t
(--)_S 48 _t
(execution)_S 47 _t
(of)_S 47 _t
('top-level',)_S 48 _t
(or)_S 47 _t
(any)_S 47 _t
(error)_S 48 _t
(that)_S 47 _t
(causes)_S 1500 6878 _m
(return)_S 46 _t
(to)_S 46 _t
(the)_S 46 _t
(top)_S 46 _t
(level,)_S 46 _t
(will)_S 46 _t
(unhook)_S 46 _t
(the)_S 47 _t
(functions.)_S 46 _t
(Applications)_S 46 _t
(should)_S 46 _t
(bind)_S 46 _t
(these)_S 46 _t
(values)_S 46 _t
(either)_S 46 _t
(via)_S 46 _t
('progv',)_S 1500 6662 _m
('evalhook',)_S 61 _t
(or)_S 61 _t
('applyhook'.)_S 1500 6230 _m
(The)_S 59 _t
(functions)_S 59 _t
('evalhook')_S 59 _t
(and)_S 59 _t
('applyhook')_S 59 _t
(allowed)_S 60 _t
(for)_S 59 _t
(controlled)_S 59 _t
(application)_S 59 _t
(of)_S 59 _t
(the)_S 59 _t
(hook)_S 59 _t
(functions.)_S 59 _t
(The)_S 1500 6014 _m
(form)_S 71 _t
(supplied)_S 72 _t
(as)_S 71 _t
(an)_S 72 _t
(ar)_S -3 _t
(gument)_S 71 _t
(to)_S 72 _t
('evalhook',)_S 71 _t
(or)_S 72 _t
(the)_S 71 _t
(function)_S 71 _t
(application)_S 72 _t
(given)_S 71 _t
(to)_S 72 _t
('applyhook',)_S 71 _t
(are)_S 72 _t
(not)_S 1500 5798 _m
(hooked)_S 59 _t
(themselves,)_S 58 _t
(but)_S 59 _t
(any)_S 58 _t
(subsidiary)_S 59 _t
(forms)_S 58 _t
(and)_S 59 _t
(applications)_S 58 _t
(are.)_S 59 _t
(In)_S 58 _t
(addition,)_S 59 _t
(by)_S 58 _t
(supplying)_S 59 _t
(NIL)_S 58 _t
(values)_S 1500 5582 _m
(for)_S 66 _t
(the)_S 65 _t
(hook)_S 65 _t
(functions,)_S 66 _t
('evalhook')_S 65 _t
(can)_S 65 _t
(be)_S 65 _t
(used)_S 66 _t
(to)_S 65 _t
(execute)_S 65 _t
(a)_S 65 _t
(form)_S 65 _t
(within)_S 66 _t
(a)_S 65 _t
(speci\256c)_S 65 _t
(environment)_S 65 _t
(passed)_S 1500 5366 _m
(as)_S 61 _t
(an)_S 61 _t
(ar)_S -3 _t
(gument.)_S 1500 4934 _m
(An)_S 73 _t
(additional)_S 72 _t
(hook)_S 72 _t
(function)_S 72 _t
(exists)_S 72 _t
(for)_S 72 _t
(the)_S 73 _t
(garbage)_S 72 _t
(collector)_S -10 _t
(.)_S 72 _t
(If)_S 72 _t
(the)_S 72 _t
(symbol)_S 73 _t
('*gc-hook*')_S 72 _t
(is)_S 72 _t
(bound)_S 72 _t
(to)_S 72 _t
(a)_S 1500 4718 _m
(function,)_S 53 _t
(then)_S 53 _t
(this)_S 53 _t
(function)_S 52 _t
(is)_S 53 _t
(called)_S 53 _t
(after)_S 53 _t
(every)_S 53 _t
(garbage)_S 52 _t
(collection.)_S 53 _t
(The)_S 53 _t
(function)_S 53 _t
(has)_S 53 _t
(two)_S 52 _t
(ar)_S -3 _t
(guments.)_S 53 _t
(The)_S 1500 4502 _m
(\256rst)_S 49 _t
(is)_S 50 _t
(the)_S 50 _t
(total)_S 49 _t
(number)_S 50 _t
(of)_S 50 _t
(nodes,)_S 49 _t
(and)_S 50 _t
(the)_S 49 _t
(second)_S 50 _t
(is)_S 50 _t
(the)_S 49 _t
(number)_S 50 _t
(of)_S 50 _t
(nodes)_S 49 _t
(free.)_S 50 _t
(The)_S 49 _t
(return)_S 50 _t
(value)_S 49 _t
(is)_S 50 _t
(ignored.)_S 1500 4286 _m
(During)_S 75 _t
(the)_S 76 _t
(execution)_S 75 _t
(of)_S 75 _t
(the)_S 75 _t
(function,)_S 76 _t
(*gc-hook*)_S 75 _t
(is)_S 75 _t
(dynamically)_S 75 _t
(bound)_S 75 _t
(to)_S 75 _t
(NIL)_S 76 _t
(to)_S 75 _t
(prevent)_S 75 _t
(undesirable)_S 1500 4070 _m
(recursion.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4326 11867 _m
(LEXICAL)_S 61 _t
(CONVENTIONS)_S 8791 11867 _m
(Page)_S 61 _t
(8)_S 1500 10986 _m
/HelveticaR 660 _ff
(LEXICAL)_S 73 _t
(CONVENTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(The)_S 61 _t
(following)_S 61 _t
(conventions)_S 61 _t
(must)_S 61 _t
(be)_S 61 _t
(followed)_S 61 _t
(when)_S 61 _t
(entering)_S 61 _t
(XLISP)_S 61 _t
(programs:)_S 1500 10118 _m
(Comments)_S 61 _t
(in)_S 61 _t
(XLISP)_S 61 _t
(code)_S 61 _t
(begin)_S 61 _t
(with)_S 61 _t
(a)_S 61 _t
(semi-colon)_S 61 _t
(character)_S 61 _t
(and)_S 61 _t
(continue)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(line.)_S 1500 9686 _m
(Except)_S 66 _t
(when)_S 66 _t
(escape)_S 66 _t
(sequences)_S 66 _t
(are)_S 66 _t
(used,)_S 65 _t
(symbol)_S 66 _t
(names)_S 66 _t
(in)_S 66 _t
(XLISP)_S 66 _t
(can)_S 66 _t
(consist)_S 66 _t
(of)_S 66 _t
(any)_S 65 _t
(sequence)_S 66 _t
(of)_S 66 _t
(non-)_S 1500 9470 _m
(blank)_S 61 _t
(printable)_S 61 _t
(characters)_S 61 _t
(except)_S 61 _t
(the)_S 61 _t
(terminating)_S 61 _t
(macro)_S 61 _t
(characters:)_S 2100 9038 _m
(\()_S 61 _t
(\))_S 61 _t
(')_S 61 _t
(`)_S 61 _t
(,)_S 61 _t
(")_S 61 _t
(;)_S 1500 8606 _m
(and)_S 61 _t
(the)_S 61 _t
(escape)_S 61 _t
(characters:)_S 2100 8174 _m
(\\)_S 61 _t
(|)_S 1500 7742 _m
(In)_S 46 _t
(addition,)_S 46 _t
(the)_S 46 _t
(\256rst)_S 45 _t
(character)_S 46 _t
(may)_S 46 _t
(not)_S 46 _t
(be)_S 46 _t
('#')_S 46 _t
(\(non-terminating)_S 45 _t
(macro)_S 46 _t
(character\),)_S 46 _t
(nor)_S 46 _t
(may)_S 46 _t
(the)_S 46 _t
(symbol)_S 45 _t
(have)_S 1500 7526 _m
(identical)_S 60 _t
(syntax)_S 61 _t
(with)_S 61 _t
(a)_S 60 _t
(numeric)_S 61 _t
(literal.)_S 61 _t
(Uppercase)_S 60 _t
(and)_S 61 _t
(lowercase)_S 61 _t
(characters)_S 61 _t
(are)_S 60 _t
(not)_S 61 _t
(distinguished)_S 61 _t
(within)_S 1500 7310 _m
(symbol)_S 61 _t
(names)_S 61 _t
(because,)_S 61 _t
(by)_S 61 _t
(default,)_S 61 _t
(lowercase)_S 61 _t
(characters)_S 61 _t
(are)_S 61 _t
(mapped)_S 61 _t
(to)_S 61 _t
(uppercase)_S 61 _t
(on)_S 61 _t
(input.)_S 1500 6878 _m
(Any)_S 56 _t
(printing)_S 56 _t
(character)_S -7 _t
(,)_S 56 _t
(including)_S 56 _t
(whitespace,)_S 56 _t
(may)_S 57 _t
(be)_S 56 _t
(part)_S 56 _t
(of)_S 57 _t
(a)_S 56 _t
(symbol)_S 56 _t
(name)_S 56 _t
(when)_S 56 _t
(escape)_S 56 _t
(characters)_S 57 _t
(are)_S 1500 6662 _m
(used.)_S 51 _t
(The)_S 52 _t
(backslash)_S 51 _t
(escapes)_S 52 _t
(the)_S 51 _t
(following)_S 52 _t
(character)_S -7 _t
(,)_S 51 _t
(while)_S 52 _t
(multiple)_S 51 _t
(characters)_S 51 _t
(can)_S 52 _t
(be)_S 51 _t
(escaped)_S 52 _t
(by)_S 51 _t
(placing)_S 1500 6446 _m
(them)_S 61 _t
(between)_S 61 _t
(vertical)_S 61 _t
(bars.)_S 61 _t
(At)_S 61 _t
(all)_S 61 _t
(times)_S 61 _t
(the)_S 61 _t
(backslash)_S 61 _t
(must)_S 61 _t
(be)_S 61 _t
(used)_S 61 _t
(to)_S 61 _t
(escape)_S 61 _t
(either)_S 61 _t
(escape)_S 61 _t
(characters.)_S 1500 6014 _m
(For)_S 68 _t
(semantic)_S 69 _t
(reasons,)_S 68 _t
(certain)_S 68 _t
(chararacter)_S 69 _t
(sequences)_S 68 _t
(should/can)_S 68 _t
(never)_S 69 _t
(be)_S 68 _t
(used)_S 68 _t
(as)_S 69 _t
(symbols)_S 68 _t
(in)_S 68 _t
(XLISP)_S -20 _t
(.)_S 69 _t
(A)_S 1500 5798 _m
(single)_S 65 _t
(period)_S 64 _t
(is)_S 65 _t
(used)_S 65 _t
(to)_S 65 _t
(denote)_S 65 _t
(dotted)_S 65 _t
(lists.)_S 64 _t
(The)_S 65 _t
(symbol)_S 65 _t
(NIL)_S 65 _t
(represents)_S 64 _t
(an)_S 65 _t
(empty)_S 65 _t
(list.)_S 65 _t
(Symbols)_S 65 _t
(starting)_S 1500 5582 _m
(with)_S 70 _t
(a)_S 70 _t
(colon)_S 70 _t
(are)_S 70 _t
(keywords,)_S 140 _t
(and)_S 70 _t
(will)_S 71 _t
(always)_S 70 _t
(evaluate)_S 70 _t
(to)_S 70 _t
(themselves.)_S 70 _t
(Thus)_S 70 _t
(they)_S 70 _t
(should)_S 70 _t
(not)_S 71 _t
(be)_S 70 _t
(used)_S 70 _t
(as)_S 1500 5366 _m
(regular)_S 61 _t
(symbols.)_S 61 _t
(The)_S 61 _t
(symbol)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(also)_S 61 _t
(reserved)_S 61 _t
(for)_S 61 _t
(use)_S 61 _t
(as)_S 61 _t
(the)_S 61 _t
(truth)_S 61 _t
(value.)_S 1500 4934 _m
(Fixnum)_S 54 _t
(\(integer\))_S 54 _t
(literals)_S 54 _t
(consist)_S 54 _t
(of)_S 54 _t
(a)_S 54 _t
(sequence)_S 54 _t
(of)_S 54 _t
(digits)_S 54 _t
(optionally)_S 55 _t
(beginning)_S 54 _t
(with)_S 54 _t
(a)_S 54 _t
(sign)_S 54 _t
(\('+')_S 54 _t
(or)_S 54 _t
('-'\).)_S 54 _t
(The)_S 1500 4718 _m
(range)_S 68 _t
(of)_S 68 _t
(values)_S 68 _t
(an)_S 69 _t
(integer)_S 68 _t
(can)_S 68 _t
(represent)_S 68 _t
(is)_S 69 _t
(limited)_S 68 _t
(by)_S 68 _t
(the)_S 68 _t
(size)_S 68 _t
(of)_S 69 _t
(a)_S 68 _t
(C)_S 68 _t
('long')_S 68 _t
(on)_S 69 _t
(the)_S 68 _t
(machine)_S 68 _t
(on)_S 68 _t
(which)_S 1500 4502 _m
(XLISP)_S 61 _t
(is)_S 61 _t
(running.)_S 61 _t
1500 4070 _m
(Ratio)_S 62 _t
(literals)_S 63 _t
(consist)_S 63 _t
(of)_S 63 _t
(two)_S 63 _t
(integer)_S 63 _t
(literals)_S 62 _t
(separated)_S 63 _t
(by)_S 63 _t
(a)_S 63 _t
(slash)_S 63 _t
(character)_S 62 _t
(\('/'\).)_S 63 _t
(The)_S 63 _t
(second)_S 63 _t
(number)_S -7 _t
(,)_S 63 _t
(the)_S 1500 3854 _m
(denominator)_S -7 _t
(,)_S 77 _t
(must)_S 77 _t
(be)_S 76 _t
(positive.)_S 77 _t
(Ratios)_S 77 _t
(are)_S 77 _t
(automatically)_S 77 _t
(reduced)_S 77 _t
(to)_S 77 _t
(their)_S 77 _t
(cannonical)_S 76 _t
(form;)_S 77 _t
(if)_S 77 _t
(they)_S 77 _t
(are)_S 1500 3638 _m
(integral,)_S 61 _t
(then)_S 61 _t
(they)_S 61 _t
(are)_S 61 _t
(reduced)_S 61 _t
(to)_S 61 _t
(an)_S 61 _t
(integer)_S -10 _t
(.)_S 1500 3206 _m
(Flonum)_S 48 _t
(\(\257oating)_S 49 _t
(point\))_S 48 _t
(literals)_S 49 _t
(consist)_S 48 _t
(of)_S 48 _t
(a)_S 49 _t
(sequence)_S 48 _t
(of)_S 48 _t
(digits)_S 49 _t
(optionally)_S 48 _t
(beginning)_S 48 _t
(with)_S 49 _t
(a)_S 48 _t
(sign)_S 48 _t
(\('+')_S 49 _t
(or)_S 48 _t
('-'\))_S 1500 2990 _m
(and)_S 64 _t
(including)_S 64 _t
(one)_S 64 _t
(or)_S 64 _t
(both)_S 64 _t
(of)_S 64 _t
(an)_S 64 _t
(embedded)_S 63 _t
(decimal)_S 64 _t
(point)_S 64 _t
(or)_S 64 _t
(a)_S 64 _t
(trailing)_S 64 _t
(exponent.)_S 64 _t
(The)_S 64 _t
(optional)_S 64 _t
(exponent)_S 1500 2774 _m
(is)_S 64 _t
(denoted)_S 63 _t
(by)_S 63 _t
(an)_S 63 _t
('E')_S 64 _t
(or)_S 63 _t
('e')_S 63 _t
(followed)_S 63 _t
(by)_S 64 _t
(an)_S 63 _t
(optional)_S 64 _t
(sign)_S 63 _t
(and)_S 63 _t
(one)_S 63 _t
(or)_S 64 _t
(more)_S 63 _t
(digits.)_S 63 _t
(The)_S 63 _t
(range)_S 64 _t
(of)_S 63 _t
(values)_S 63 _t
(a)_S 1500 2558 _m
(\257oating)_S 66 _t
(point)_S 67 _t
(number)_S 67 _t
(can)_S 67 _t
(represent)_S 66 _t
(is)_S 67 _t
(limited)_S 67 _t
(by)_S 67 _t
(the)_S 66 _t
(size)_S 67 _t
(of)_S 67 _t
(a)_S 66 _t
(C)_S 67 _t
('double')_S 67 _t
(on)_S 66 _t
(most)_S 67 _t
(machines)_S 67 _t
(on)_S 67 _t
(which)_S 1500 2342 _m
(XLISP)_S 61 _t
(is)_S 61 _t
(running.)_S 1500 1910 _m
(Numeric)_S 60 _t
(literals)_S 61 _t
(cannot)_S 61 _t
(have)_S 61 _t
(embedded)_S 61 _t
(escape)_S 60 _t
(characters.)_S 61 _t
(If)_S 61 _t
(they)_S 61 _t
(do,)_S 61 _t
(they)_S 61 _t
(are)_S 60 _t
(treated)_S 61 _t
(as)_S 61 _t
(symbols.)_S 61 _t
(Thus)_S 1500 1694 _m
('12\\3')_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(symbol)_S 61 _t
(even)_S 61 _t
(though)_S 61 _t
(it)_S 61 _t
(would)_S 61 _t
(appear)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(identical)_S 61 _t
(to)_S 61 _t
('123'.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4326 11867 _m
(LEXICAL)_S 61 _t
(CONVENTIONS)_S 8791 11867 _m
(Page)_S 61 _t
(9)_S 1500 11235 _m
(Complex)_S 61 _t
(literals)_S 61 _t
(are)_S 61 _t
(constructed)_S 60 _t
(using)_S 61 _t
(a)_S 61 _t
(read-macro)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(format)_S 61 _t
(#C\(r)_S 60 _t
(i\),)_S 61 _t
(where)_S 61 _t
(r)_S 61 _t
(is)_S 61 _t
(the)_S 61 _t
(real)_S 60 _t
(part)_S 61 _t
(and)_S 61 _t
(i)_S 1500 11019 _m
(is)_S 60 _t
(the)_S 60 _t
(imaginary)_S 60 _t
(part.)_S 60 _t
(The)_S 60 _t
(numeric)_S 60 _t
(\256elds)_S 60 _t
(can)_S 60 _t
(be)_S 59 _t
(any)_S 60 _t
(valid)_S 60 _t
(\256xnum,)_S 60 _t
(ratio,)_S 60 _t
(or)_S 60 _t
(\257onum)_S 60 _t
(literal.)_S 60 _t
(If)_S 60 _t
(either)_S 60 _t
(\256eld)_S 1500 10803 _m
(has)_S 62 _t
(a)_S 61 _t
(ratio)_S 62 _t
(or)_S 62 _t
(\257onum)_S 61 _t
(literal,)_S 62 _t
(then)_S 61 _t
(both)_S 62 _t
(values)_S 62 _t
(are)_S 61 _t
(converted)_S 62 _t
(to)_S 62 _t
(\257onums.)_S 61 _t
(Fixnum)_S 62 _t
(complex)_S 62 _t
(literals)_S 61 _t
(with)_S 62 _t
(a)_S 1500 10587 _m
(zero)_S 61 _t
(imaginary)_S 61 _t
(part)_S 61 _t
(are)_S 61 _t
(automatically)_S 61 _t
(reduced)_S 61 _t
(to)_S 61 _t
(\256xnums.)_S 1500 10155 _m
(Character)_S 61 _t
(literals)_S 61 _t
(are)_S 61 _t
(handled)_S 61 _t
(via)_S 61 _t
(the)_S 61 _t
(#\\)_S 61 _t
(read-macro)_S 61 _t
(construct:)_S 2100 9723 _m
(#\\<char>)_S 3930 9723 _m
(==)_S 61 _t
(the)_S 61 _t
(ASCII)_S 61 _t
(code)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(printing)_S 61 _t
(character)_S 2100 9507 _m
(#\\newline)_S 3930 9507 _m
(==)_S 61 _t
(ASCII)_S 61 _t
(linefeed)_S 61 _t
(character)_S 2100 9291 _m
(#\\space)_S 3930 9291 _m
(==)_S 61 _t
(ASCII)_S 61 _t
(space)_S 61 _t
(character)_S 2100 9075 _m
(#\\rubout)_S 3930 9075 _m
(==)_S 61 _t
(ASCII)_S 61 _t
(rubout)_S 61 _t
(\(DEL\))_S 2100 8859 _m
(#\\C-<char>)_S 3930 8859 _m
(==)_S 61 _t
(ASCII)_S 61 _t
(control)_S 61 _t
(character)_S 2100 8643 _m
(#\\M-<char>)_S 3930 8643 _m
(==)_S 61 _t
(ASCII)_S 61 _t
(character)_S 61 _t
(with)_S 61 _t
(msb)_S 61 _t
(set)_S 61 _t
(\(Meta)_S 61 _t
(character\))_S 2100 8427 _m
(#\\M-C-<char>)_S 3930 8427 _m
(==)_S 61 _t
(ASCII)_S 61 _t
(control)_S 61 _t
(character)_S 61 _t
(with)_S 61 _t
(msb)_S 61 _t
(set)_S 1500 7779 _m
(Literal)_S 48 _t
(strings)_S 48 _t
(are)_S 48 _t
(sequences)_S 48 _t
(of)_S 48 _t
(characters)_S 48 _t
(surrounded)_S 48 _t
(by)_S 47 _t
(double)_S 48 _t
(quotes)_S 48 _t
(\(the)_S 48 _t
(")_S 48 _t
(read-macro\).)_S 48 _t
(W)_S -7 _t
(ithin)_S 48 _t
(quoted)_S 1500 7563 _m
(strings)_S 61 _t
(the)_S 61 _t
('\\')_S 61 _t
(character)_S 61 _t
(is)_S 61 _t
(used)_S 61 _t
(to)_S 61 _t
(allow)_S 61 _t
(non-printable)_S 61 _t
(characters)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(included.)_S 61 _t
(The)_S 61 _t
(codes)_S 1500 7347 _m
(recognized)_S 61 _t
(are:)_S 2100 6915 _m
(\\\\)_S 3300 6915 _m
(means)_S 61 _t
(the)_S 61 _t
(character)_S 61 _t
('\\')_S 2100 6699 _m
(\\n)_S 3300 6699 _m
(means)_S 61 _t
(newline)_S 2100 6483 _m
(\\t)_S 3300 6483 _m
(means)_S 61 _t
(tab)_S 2100 6267 _m
(\\r)_S 3300 6267 _m
(means)_S 61 _t
(return)_S 2100 6051 _m
(\\f)_S 3300 6051 _m
(means)_S 61 _t
(form)_S 61 _t
(feed)_S 2100 5835 _m
(\\nnn)_S 3300 5835 _m
(means)_S 61 _t
(the)_S 61 _t
(character)_S 61 _t
(whose)_S 61 _t
(octal)_S 61 _t
(code)_S 61 _t
(is)_S 61 _t
(nnn)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4804 11867 _m
(READTABLES)_S 8699 11867 _m
(Page)_S 61 _t
(10)_S 1500 10986 _m
/HelveticaR 660 _ff
(READT)_S -15 _t
(ABLES)_S /Times-RomanR 550 _ff
1500 10550 _m
(The)_S 70 _t
(behaviour)_S 71 _t
(of)_S 71 _t
(the)_S 70 _t
(reader)_S 71 _t
(is)_S 71 _t
(controlled)_S 70 _t
(by)_S 71 _t
(a)_S 70 _t
(data)_S 71 _t
(structure)_S 71 _t
(called)_S 70 _t
(a)_S 71 _t
("readtable".)_S 70 _t
(The)_S 71 _t
(reader)_S 70 _t
(uses)_S 71 _t
(the)_S 1500 10334 _m
(symbol)_S 44 _t
(*readtable*)_S 43 _t
(to)_S 43 _t
(locate)_S 43 _t
(the)_S 44 _t
(current)_S 43 _t
(readtable.)_S 43 _t
(This)_S 44 _t
(table)_S 43 _t
(controls)_S 43 _t
(the)_S 44 _t
(interpretation)_S 43 _t
(of)_S 43 _t
(input)_S 43 _t
(characters)_S 1500 10118 _m
(--)_S 57 _t
(if)_S 57 _t
(it)_S 56 _t
(is)_S 57 _t
(changed)_S 57 _t
(then)_S 56 _t
(the)_S 57 _t
(section)_S 57 _t
(LEXICAL)_S 57 _t
(CONVENTIONS)_S 56 _t
(may)_S 57 _t
(not)_S 57 _t
(apply)_S -12 _t
(.)_S 56 _t
(The)_S 57 _t
(readtable)_S 57 _t
(is)_S 56 _t
(an)_S 57 _t
(array)_S 1500 9902 _m
(with)_S 71 _t
(256)_S 70 _t
(entries,)_S 71 _t
(one)_S 71 _t
(for)_S 71 _t
(each)_S 70 _t
(of)_S 71 _t
(the)_S 71 _t
(extended)_S 70 _t
(ASCII)_S 71 _t
(character)_S 71 _t
(codes.)_S 70 _t
(Each)_S 71 _t
(entry)_S 71 _t
(contains)_S 71 _t
(one)_S 70 _t
(of)_S 71 _t
(the)_S 1500 9686 _m
(following)_S 61 _t
(values,)_S 61 _t
(with)_S 61 _t
(the)_S 61 _t
(initial)_S 61 _t
(entries)_S 61 _t
(assigned)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(values)_S 61 _t
(indicated:)_S 2100 9254 _m
(:white-space)_S 4500 9254 _m
(A)_S 61 _t
(whitespace)_S 61 _t
(character)_S 61 _t
(-)_S 61 _t
(tab,)_S 61 _t
(cr)_S -7 _t
(,)_S 61 _t
(lf,)_S 61 _t
(ff,)_S 61 _t
(space)_S 2100 9038 _m
(\(:tmacro)_S 61 _t
(.)_S 61 _t
(fun\))_S 4500 9038 _m
(terminating)_S 61 _t
(readmacro)_S 61 _t
(-)_S 61 _t
(\()_S 61 _t
(\))_S 61 _t
(")_S 61 _t
(,)_S 61 _t
(;)_S 61 _t
(')_S 61 _t
(`)_S 2100 8822 _m
(\(:nmacro)_S 61 _t
(.)_S 61 _t
(fun\))_S 4500 8822 _m
(non-terminating)_S 61 _t
(readmacro)_S 61 _t
(-)_S 61 _t
(#)_S 2100 8606 _m
(:sescape)_S 4500 8606 _m
(Single)_S 61 _t
(escape)_S 61 _t
(character)_S 61 _t
(-)_S 61 _t
(\\)_S 2100 8390 _m
(:mescape)_S 4500 8390 _m
(Multiple)_S 61 _t
(escape)_S 61 _t
(character)_S 61 _t
(-)_S 61 _t
(|)_S 2100 8174 _m
(:constituent)_S 4500 8174 _m
(Indicating)_S 54 _t
(a)_S 54 _t
(symbol)_S 54 _t
(constituent)_S 54 _t
(\(all)_S 53 _t
(printing)_S 54 _t
(characters)_S 54 _t
(not)_S 54 _t
(listed)_S 4500 7958 _m
(above\))_S 2100 7742 _m
(NIL)_S 4500 7742 _m
(Indicating)_S 61 _t
(an)_S 61 _t
(invalid)_S 61 _t
(character)_S 61 _t
(\(everything)_S 61 _t
(else\))_S 1500 7310 _m
(In)_S 49 _t
(the)_S 48 _t
(case)_S 48 _t
(of)_S 48 _t
(:TMACRO)_S 48 _t
(and)_S 49 _t
(:NMACRO,)_S 48 _t
(the)_S 48 _t
("fun")_S 48 _t
(component)_S 49 _t
(is)_S 48 _t
(a)_S 48 _t
(function.)_S 48 _t
(This)_S 48 _t
(can)_S 49 _t
(either)_S 48 _t
(be)_S 48 _t
(a)_S 48 _t
(built-in)_S 1500 7094 _m
(readmacro)_S 75 _t
(function)_S 74 _t
(or)_S 75 _t
(a)_S 75 _t
(lambda)_S 74 _t
(expression.)_S 75 _t
(The)_S 75 _t
(function)_S 74 _t
(takes)_S 75 _t
(two)_S 75 _t
(parameters.)_S 74 _t
(The)_S 75 _t
(\256rst)_S 75 _t
(is)_S 74 _t
(the)_S 75 _t
(input)_S 1500 6878 _m
(stream)_S 85 _t
(and)_S 84 _t
(the)_S 85 _t
(second)_S 84 _t
(is)_S 85 _t
(the)_S 84 _t
(character)_S 85 _t
(that)_S 84 _t
(caused)_S 85 _t
(the)_S 84 _t
(invocation)_S 85 _t
(of)_S 84 _t
(the)_S 85 _t
(readmacro.)_S 84 _t
(The)_S 85 _t
(readmacro)_S 1500 6662 _m
(function)_S 44 _t
(should)_S 44 _t
(return)_S 44 _t
(NIL)_S 44 _t
(to)_S 44 _t
(indicate)_S 44 _t
(that)_S 45 _t
(the)_S 44 _t
(character)_S 44 _t
(should)_S 44 _t
(be)_S 44 _t
(treated)_S 44 _t
(as)_S 44 _t
(white)_S 44 _t
(space)_S 45 _t
(or)_S 44 _t
(a)_S 44 _t
(value)_S 44 _t
(consed)_S 1500 6446 _m
(with)_S 75 _t
(NIL)_S 75 _t
(to)_S 75 _t
(indicate)_S 75 _t
(that)_S 75 _t
(the)_S 75 _t
(readmacro)_S 76 _t
(should)_S 75 _t
(be)_S 75 _t
(treated)_S 75 _t
(as)_S 75 _t
(an)_S 76 _t
(occurance)_S 75 _t
(of)_S 75 _t
(the)_S 75 _t
(speci\256ed)_S 75 _t
(value.)_S 76 _t
(Of)_S 1500 6230 _m
(course,)_S 68 _t
(the)_S 69 _t
(readmacro)_S 68 _t
(code)_S 68 _t
(is)_S 69 _t
(free)_S 68 _t
(to)_S 68 _t
(read)_S 69 _t
(additional)_S 68 _t
(characters)_S 68 _t
(from)_S 68 _t
(the)_S 69 _t
(input)_S 68 _t
(stream.)_S 68 _t
(A)_S 69 _t
(:nmacro)_S 68 _t
(is)_S 68 _t
(a)_S 1500 6014 _m
(symbol)_S 61 _t
(constituent)_S 61 _t
(except)_S 61 _t
(as)_S 61 _t
(the)_S 61 _t
(\256rst)_S 61 _t
(character)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(symbol.)_S 1500 5582 _m
(As)_S 88 _t
(an)_S 88 _t
(example,)_S 87 _t
(the)_S 88 _t
(following)_S 88 _t
(read)_S 88 _t
(macro)_S 87 _t
(allows)_S 88 _t
(the)_S 88 _t
(square)_S 88 _t
(brackets)_S 87 _t
(to)_S 88 _t
(be)_S 88 _t
(used)_S 88 _t
(as)_S 87 _t
(a)_S 88 _t
(more)_S 88 _t
(visibly)_S 1500 5366 _m
(appealing)_S 61 _t
(alternative)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(SEND)_S 61 _t
(function:)_S 1500 4941 _m
/CourierR 550 _ff
(\(setf)_S 110 _t
(\(aref)_S 110 _t
(*readtable*)_S 110 _t
(\(char-int)_S 110 _t
(#\\[\)\))_S 110 _t
(;)_S 110 _t
(#\\[)_S 110 _t
(table)_S 110 _t
(entry)_S 1500 4758 _m
110 _t
110 _t
110 _t
110 _t
110 _t
110 _t
(\(cons)_S 110 _t
(:tmacro)_S 2460 4575 _m
110 _t
110 _t
110 _t
110 _t
(\(lambda)_S 110 _t
(\(f)_S 110 _t
(c)_S 110 _t
(&aux)_S 110 _t
(ex\))_S 110 _t
(;)_S 110 _t
(second)_S 110 _t
(arg)_S 110 _t
(is)_S 110 _t
(not)_S 110 _t
(used)_S 3420 4392 _m
110 _t
110 _t
110 _t
110 _t
(\(do)_S 110 _t
(\(\))_S 4380 4209 _m
(\(\(eq)_S 110 _t
(\(peek-char)_S 110 _t
(t)_S 110 _t
(f\))_S 110 _t
(#\\]\)\))_S 4380 4026 _m
(\(setf)_S 110 _t
(ex)_S 110 _t
(\(append)_S 110 _t
(ex)_S 110 _t
(\(list)_S 110 _t
(\(read)_S 110 _t
(f\)\)\)\)\))_S 3420 3843 _m
110 _t
110 _t
110 _t
110 _t
(\(read-char)_S 110 _t
(f\))_S 110 _t
(;)_S 110 _t
(toss)_S 110 _t
(the)_S 110 _t
(trailing)_S 110 _t
(#\\])_S 3420 3660 _m
110 _t
110 _t
110 _t
110 _t
(\(cons)_S 110 _t
(\(cons)_S 110 _t
('send)_S 110 _t
(ex\))_S 110 _t
(NIL\)\)\)\))_S 1500 3294 _m
(\(setf)_S 110 _t
(\(aref)_S 110 _t
(*readtable*)_S 110 _t
(\(char-int)_S 110 _t
(#\\]\)\))_S 1500 3111 _m
110 _t
110 _t
110 _t
110 _t
110 _t
110 _t
(\(cons)_S 110 _t
(:tmacro)_S 2460 2928 _m
110 _t
110 _t
110 _t
110 _t
(\(lambda)_S 110 _t
(\(f)_S 110 _t
(c\))_S 3420 2745 _m
110 _t
110 _t
110 _t
110 _t
(\(error)_S 110 _t
("misplaced)_S 110 _t
(right)_S 110 _t
(bracket"\)\)\)\))_S /Times-RomanR 550 _ff
_ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4804 11867 _m
(READTABLES)_S 8699 11867 _m
(Page)_S 61 _t
(11)_S 1500 11235 _m
(XLISP)_S 61 _t
(de\256nes)_S 61 _t
(several)_S 61 _t
(useful)_S 61 _t
(read)_S 61 _t
(macros:)_S 2100 10803 _m
('<expr>)_S 4500 10803 _m
(==)_S 61 _t
(\(quote)_S 61 _t
(<expr>\))_S 2100 10587 _m
(`<expr>)_S 4500 10587 _m
(==)_S 61 _t
(\(backquote)_S 61 _t
(<expr>\))_S 2100 10371 _m
(,<expr>)_S 4500 10371 _m
(==)_S 61 _t
(\(comma)_S 61 _t
(<expr>\))_S 2100 10155 _m
(,@<expr>)_S 4500 10155 _m
(==)_S 61 _t
(\(comma-at)_S 61 _t
(<expr>\))_S 2100 9939 _m
(#'<expr>)_S 4500 9939 _m
(==)_S 61 _t
(\(function)_S 61 _t
(<expr>\))_S 2100 9723 _m
(#\(<expr>...\))_S 4500 9723 _m
(==)_S 61 _t
(an)_S 61 _t
(array)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(speci\256ed)_S 61 _t
(expressions)_S 2100 9507 _m
(#S\(<structtype>)_S 61 _t
([<slotname>)_S 61 _t
(<value>]...\))_S 4500 9291 _m
(==)_S 61 _t
(structure)_S 61 _t
(of)_S 61 _t
(speci\256ed)_S 61 _t
(type)_S 61 _t
(and)_S 61 _t
(initial)_S 61 _t
(values)_S 2100 9075 _m
(#.<expr>)_S 4500 9075 _m
(==)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(evaluating)_S 61 _t
(<expr>)_S 2100 8859 _m
(#x<hdigits>)_S 4500 8859 _m
(==)_S 61 _t
(a)_S 61 _t
(hexadecimal)_S 61 _t
(number)_S 61 _t
(\(0-9,A-F\))_S 2100 8643 _m
(#o<odigits>)_S 4500 8643 _m
(==)_S 61 _t
(an)_S 61 _t
(octal)_S 61 _t
(number)_S 61 _t
(\(0-7\))_S 2100 8427 _m
(#b<bdigits>)_S 4500 8427 _m
(==)_S 61 _t
(a)_S 61 _t
(binary)_S 61 _t
(number)_S 61 _t
(\(0-1\))_S 2100 8211 _m
(#|)_S 122 _t
(|#)_S 4500 8211 _m
(==)_S 61 _t
(a)_S 61 _t
(comment)_S 2100 7995 _m
(#:<symbol>)_S 4500 7995 _m
(==)_S 61 _t
(an)_S 61 _t
(uninterned)_S 61 _t
(symbol)_S 2100 7779 _m
(#C\(r)_S 61 _t
(i\))_S 4500 7779 _m
(==)_S 61 _t
(a)_S 61 _t
(complex)_S 61 _t
(number)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4290 11867 _m
(SYMBOL)_S 61 _t
(CASE)_S 61 _t
(CONTROL)_S 8699 11867 _m
(Page)_S 61 _t
(12)_S 1500 10986 _m
/HelveticaR 660 _ff
(SYMBOL)_S 73 _t
(CASE)_S 73 _t
(CONTROL)_S /Times-RomanR 550 _ff
1500 10550 _m
(XLISP-PLUS)_S 111 _t
(uses)_S 112 _t
(two)_S 111 _t
(variables,)_S 111 _t
(*READT)_S -15 _t
(ABLE-CASE*)_S 112 _t
(and)_S 111 _t
(*PRINT)_S -17 _t
(-CASE*)_S 112 _t
(to)_S 111 _t
(deturmine)_S 112 _t
(case)_S 1500 10334 _m
(conversion)_S 40 _t
(during)_S 40 _t
(reading)_S 40 _t
(and)_S 39 _t
(printing)_S 40 _t
(of)_S 40 _t
(symbols.)_S 40 _t
(*READT)_S -15 _t
(ABLE-CASE*)_S 40 _t
(can)_S 39 _t
(have)_S 40 _t
(the)_S 40 _t
(values)_S 39 _t
(:UPCASE)_S 1500 10118 _m
(:DOWNCASE)_S 93 _t
(:PRESER)_S -14 _t
(VE)_S 93 _t
(or)_S 94 _t
(:INVER)_S -11 _t
(T)_S -13 _t
(,)_S 93 _t
(while)_S 93 _t
(*PRINT)_S -17 _t
(-CASE*)_S 93 _t
(can)_S 94 _t
(have)_S 93 _t
(the)_S 93 _t
(values)_S 94 _t
(:UPCASE)_S 93 _t
(or)_S 1500 9902 _m
(:DOWNCASE.)_S 61 _t
(By)_S 61 _t
(default,)_S 61 _t
(or)_S 61 _t
(when)_S 61 _t
(other)_S 61 _t
(values)_S 61 _t
(have)_S 61 _t
(been)_S 61 _t
(speci\256ed,)_S 61 _t
(both)_S 61 _t
(are)_S 61 _t
(:UPCASE.)_S 1500 9470 _m
(When)_S 37 _t
(*READT)_S -15 _t
(ABLE-CASE*)_S 37 _t
(is)_S 37 _t
(:UPCASE,)_S 37 _t
(all)_S 37 _t
(unescaped)_S 37 _t
(lowercase)_S 37 _t
(characters)_S 37 _t
(are)_S 37 _t
(converted)_S 37 _t
(to)_S 37 _t
(uppercase)_S 1500 9254 _m
(when)_S 45 _t
(read.)_S 45 _t
(When)_S 45 _t
(it)_S 44 _t
(is)_S 45 _t
(:DOWNCASE,)_S 45 _t
(all)_S 45 _t
(unescaped)_S 45 _t
(uppercase)_S 44 _t
(characters)_S 45 _t
(are)_S 45 _t
(converted)_S 45 _t
(to)_S 45 _t
(lowercase.)_S 44 _t
(This)_S 1500 9038 _m
(mode)_S 57 _t
(is)_S 56 _t
(not)_S 57 _t
(very)_S 57 _t
(useful)_S 57 _t
(because)_S 57 _t
(the)_S 57 _t
(prede\256ned)_S 57 _t
(symbols)_S 57 _t
(are)_S 57 _t
(all)_S 57 _t
(uppercase)_S 57 _t
(and)_S 57 _t
(would)_S 57 _t
(need)_S 57 _t
(to)_S 57 _t
(be)_S 57 _t
(escaped)_S 1500 8822 _m
(to)_S 52 _t
(read)_S 51 _t
(them.)_S 51 _t
(When)_S 51 _t
(*READT)_S -15 _t
(ABLE-CASE*)_S 51 _t
(is)_S 51 _t
(:PRESER)_S -14 _t
(VE,)_S 51 _t
(no)_S 51 _t
(conversion)_S 51 _t
(takes)_S 51 _t
(place.)_S 51 _t
(This)_S 51 _t
(allows)_S 51 _t
(case)_S 1500 8606 _m
(sensitive)_S 68 _t
(input)_S 67 _t
(with)_S 68 _t
(prede\256ned)_S 67 _t
(functions)_S 68 _t
(in)_S 67 _t
(uppercase.)_S 68 _t
(The)_S 67 _t
(\256nal)_S 68 _t
(choice,)_S 67 _t
(:INVER)_S -11 _t
(T)_S -13 _t
(,)_S 68 _t
(will)_S 67 _t
(invert)_S 68 _t
(the)_S 67 _t
(case)_S 1500 8390 _m
(of)_S 71 _t
(any)_S 72 _t
(symbol)_S 71 _t
(that)_S 72 _t
(is)_S 71 _t
(not)_S 72 _t
(mixed)_S 72 _t
(case.)_S 71 _t
(This)_S 72 _t
(provides)_S 72 _t
(case)_S 71 _t
(sensitive)_S 72 _t
(input)_S 71 _t
(while)_S 72 _t
(making)_S 71 _t
(the)_S 72 _t
(prede\256ned)_S 1500 8174 _m
(functions)_S 61 _t
(and)_S 61 _t
(variables)_S 61 _t
(appear)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(in)_S 61 _t
(lowercase.)_S 1500 7742 _m
(The)_S 44 _t
(printing)_S 43 _t
(of)_S 44 _t
(symbols)_S 44 _t
(involves)_S 44 _t
(the)_S 43 _t
(settings)_S 44 _t
(of)_S 44 _t
(both)_S 43 _t
(*READT)_S -15 _t
(ABLE-CASE*)_S 44 _t
(and)_S 43 _t
(*PRINT)_S -17 _t
(-CASE*.)_S 44 _t
(When)_S 1500 7526 _m
(*READT)_S -15 _t
(ABLE-CASE*)_S 84 _t
(is)_S 84 _t
(:UPCASE,)_S 83 _t
(lowercase)_S 84 _t
(characters)_S 84 _t
(are)_S 84 _t
(escaped)_S 83 _t
(\(unless)_S 84 _t
(PRINC)_S 84 _t
(is)_S 83 _t
(used\),)_S 84 _t
(and)_S 1500 7310 _m
(uppercase)_S 52 _t
(characters)_S 51 _t
(are)_S 52 _t
(printed)_S 51 _t
(in)_S 51 _t
(the)_S 52 _t
(case)_S 51 _t
(speci\256ed)_S 52 _t
(by)_S 51 _t
(*PRINT)_S -17 _t
(-CASE*.)_S 52 _t
(When)_S 51 _t
(*READT)_S -15 _t
(ABLE-CASE*)_S 1500 7094 _m
(is)_S 54 _t
(:DOWNCASE,)_S 54 _t
(uppercase)_S 54 _t
(characters)_S 54 _t
(are)_S 53 _t
(escaped)_S 54 _t
(\(unless)_S 54 _t
(PRINC)_S 54 _t
(is)_S 54 _t
(used\),)_S 54 _t
(and)_S 54 _t
(lowercase)_S 53 _t
(are)_S 54 _t
(printed)_S 54 _t
(in)_S 1500 6878 _m
(t)_S 5 _t
(h)_S 5 _t
(e)_S 122 _t
(c)_S 5 _t
(a)_S 5 _t
(s)_S 5 _t
(e)_S 122 _t
(s)_S 5 _t
(p)_S 5 _t
(e)_S 5 _t
(c)_S 5 _t
(i)_S 5 _t
(\256)_S 5 _t
(e)_S 5 _t
(d)_S 122 _t
(b)_S 5 _t
(y)_S 122 _t
(*)_S 5 _t
(P)_S 5 _t
(R)_S 5 _t
(I)_S 5 _t
(N)_S 5 _t
(T)_S 5 _t
-17 _t
(-)_S 5 _t
(C)_S 5 _t
(A)_S 5 _t
(S)_S 5 _t
(E)_S 5 _t
(*)_S 5 _t
(.)_S 121 _t
(T)_S 5 _t
(h)_S 5 _t
(e)_S 122 _t
(r)_S 5 _t
(e)_S 5 _t
(m)_S 5 _t
(a)_S 5 _t
(i)_S 5 _t
(n)_S 5 _t
(i)_S 5 _t
(n)_S 5 _t
(g)_S 122 _t
(*)_S 5 _t
(R)_S 5 _t
(E)_S 5 _t
(A)_S 5 _t
(D)_S 5 _t
(T)_S 5 _t
-15 _t
(A)_S 5 _t
(B)_S 5 _t
(L)_S 5 _t
(E)_S 5 _t
(-)_S 5 _t
(C)_S 5 _t
(A)_S 5 _t
(S)_S 5 _t
(E)_S 5 _t
(*)_S 122 _t
(m)_S 5 _t
(o)_S 5 _t
(d)_S 5 _t
(e)_S 5 _t
(s)_S 121 _t
(i)_S 5 _t
(g)_S 5 _t
(n)_S 5 _t
(o)_S 5 _t
(r)_S 5 _t
(e)_S 1500 6662 _m
(*PRINT)_S -17 _t
(-CASE*)_S 102 _t
(and)_S 101 _t
(do)_S 102 _t
(not)_S 101 _t
(escape)_S 101 _t
(alphabetic)_S 102 _t
(characters.)_S 101 _t
(:PRESER)_S -14 _t
(VE)_S 102 _t
(never)_S 101 _t
(changes)_S 101 _t
(the)_S 102 _t
(case)_S 101 _t
(of)_S 1500 6446 _m
(characters)_S 61 _t
(while)_S 61 _t
(:INVER)_S -11 _t
(T)_S 61 _t
(inverts)_S 61 _t
(the)_S 61 _t
(case)_S 61 _t
(of)_S 61 _t
(any)_S 61 _t
(non)_S 61 _t
(mixed-case)_S 61 _t
(symbols.)_S 1500 6014 _m
(There)_S 61 _t
(are)_S 61 _t
(four)_S 61 _t
(major)_S 61 _t
(useful)_S 61 _t
(combinations)_S 61 _t
(of)_S 61 _t
(these)_S 61 _t
(modes:)_S 1500 5582 _m
/Times-BoldR 550 _ff
(A:)_S 122 _t
(*READT)_S -13 _t
(ABLE-CASE*)_S 61 _t
(:UPCASE)_S 122 _t
(*PRINT)_S -16 _t
(-CASE*)_S 61 _t
(:UPCASE)_S /Times-RomanR 550 _ff
1500 5150 _m
("T)_S -6 _t
(raditional")_S 71 _t
(mode.)_S 71 _t
(Case)_S 71 _t
(insensitive)_S 71 _t
(input;)_S 71 _t
(must)_S 72 _t
(escape)_S 71 _t
(to)_S 71 _t
(put)_S 71 _t
(lowercase)_S 71 _t
(characters)_S 71 _t
(in)_S 71 _t
(symbol)_S 72 _t
(names.)_S 1500 4934 _m
(Symbols)_S 61 _t
(print)_S 61 _t
(exactly)_S 61 _t
(as)_S 61 _t
(they)_S 61 _t
(are)_S 61 _t
(stored,)_S 61 _t
(with)_S 61 _t
(lowercase)_S 61 _t
(characters)_S 61 _t
(escaped)_S 61 _t
(when)_S 61 _t
(PRIN1)_S 61 _t
(is)_S 61 _t
(used.)_S 1500 4502 _m
/Times-BoldR 550 _ff
(B:)_S 122 _t
(*READT)_S -13 _t
(ABLE-CASE*)_S 61 _t
(:UPCASE)_S 122 _t
(*PRINT)_S -16 _t
(-CASE*)_S 61 _t
(:DOWNCASE)_S /Times-RomanR 550 _ff
1500 4070 _m
("Eyesaver")_S 87 _t
(mode.)_S 87 _t
(Case)_S 87 _t
(insensitive)_S 87 _t
(input;)_S 87 _t
(must)_S 87 _t
(escape)_S 88 _t
(to)_S 87 _t
(put)_S 87 _t
(lowercase)_S 87 _t
(characters)_S 87 _t
(in)_S 87 _t
(symbol)_S 88 _t
(name.)_S 1500 3854 _m
(Symbols)_S 82 _t
(print)_S 81 _t
(entirely)_S 82 _t
(in)_S 81 _t
(lowercase)_S 82 _t
(except)_S 81 _t
(symbols)_S 82 _t
(escaped)_S 81 _t
(when)_S 82 _t
(lowercase)_S 81 _t
(characters)_S 82 _t
(present)_S 81 _t
(with)_S 1500 3638 _m
(PRIN1.)_S 1500 3206 _m
/Times-BoldR 550 _ff
(C:)_S 122 _t
(*READT)_S -13 _t
(ABLE-CASE*)_S 61 _t
(:PRESER)_S -6 _t
(VE)_S /Times-RomanR 550 _ff
1500 2774 _m
("Oldfashioned)_S 44 _t
(case)_S 45 _t
(sensitive")_S 44 _t
(mode.)_S 45 _t
(Case)_S 44 _t
(sensitive)_S 45 _t
(input.)_S 44 _t
(Prede\256ned)_S 44 _t
(symbols)_S 45 _t
(must)_S 44 _t
(be)_S 45 _t
(typed)_S 44 _t
(in)_S 45 _t
(uppercase.)_S 1500 2558 _m
(No)_S 61 _t
(alpha)_S 61 _t
(quoting)_S 61 _t
(needed.)_S 61 _t
(Symbols)_S 61 _t
(print)_S 61 _t
(exactly)_S 61 _t
(as)_S 61 _t
(stored.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4290 11867 _m
(SYMBOL)_S 61 _t
(CASE)_S 61 _t
(CONTROL)_S 8699 11867 _m
(Page)_S 61 _t
(13)_S 1500 11235 _m
/Times-BoldR 550 _ff
(D:)_S 122 _t
(*READT)_S -13 _t
(ABLE-CASE*)_S 61 _t
(:INVER)_S -6 _t
(T)_S /Times-RomanR 550 _ff
1500 10803 _m
("Modern)_S 76 _t
(case)_S 75 _t
(sensitive")_S 76 _t
(mode.)_S 76 _t
(Case)_S 76 _t
(sensitive)_S 76 _t
(input.)_S 75 _t
(Prede\256ned)_S 76 _t
(symbols)_S 76 _t
(must)_S 76 _t
(be)_S 75 _t
(typed)_S 76 _t
(in)_S 76 _t
(lowercase.)_S 1500 10587 _m
(Alpha)_S 69 _t
(quoting)_S 70 _t
(should)_S 69 _t
(be)_S 69 _t
(avoided.)_S 70 _t
(Prede\256ned)_S 69 _t
(symbols)_S 69 _t
(print)_S 69 _t
(in)_S 69 _t
(lower)_S 69 _t
(case,)_S 70 _t
(other)_S 69 _t
(symbols)_S 69 _t
(print)_S 69 _t
(as)_S 69 _t
(they)_S 1500 10371 _m
(were)_S 61 _t
(entered.)_S 1500 9939 _m
(As)_S 55 _t
(far)_S 54 _t
(as)_S 54 _t
(compatibility)_S 55 _t
(between)_S 54 _t
(these)_S 55 _t
(modes)_S 54 _t
(are)_S 55 _t
(concerned,)_S 54 _t
(data)_S 54 _t
(printed)_S 55 _t
(in)_S 54 _t
(mode)_S 55 _t
(A)_S 54 _t
(can)_S 55 _t
(be)_S 54 _t
(read)_S 54 _t
(in)_S 55 _t
(A,)_S 54 _t
(B,)_S 1500 9723 _m
(or)_S 60 _t
(C.)_S 60 _t
(Data)_S 60 _t
(printed)_S 60 _t
(in)_S 59 _t
(mode)_S 60 _t
(B)_S 60 _t
(can)_S 60 _t
(be)_S 60 _t
(read)_S 59 _t
(in)_S 60 _t
(A,)_S 60 _t
(B,)_S 60 _t
(and)_S 60 _t
(D.)_S 59 _t
(Data)_S 60 _t
(printed)_S 60 _t
(in)_S 60 _t
(mode)_S 60 _t
(C)_S 60 _t
(can)_S 60 _t
(be)_S 60 _t
(read)_S 59 _t
(in)_S 60 _t
(mode)_S 1500 9507 _m
(C,)_S 56 _t
(and)_S 56 _t
(if)_S 56 _t
(no)_S 56 _t
(lowercase)_S 56 _t
(symbols)_S 56 _t
(in)_S 56 _t
(modes)_S 56 _t
(A)_S 56 _t
(and)_S 56 _t
(B)_S 56 _t
(as)_S 56 _t
(well.)_S 56 _t
(Data)_S 56 _t
(printed)_S 56 _t
(in)_S 56 _t
(mode)_S 56 _t
(D)_S 56 _t
(can)_S 56 _t
(be)_S 56 _t
(read)_S 56 _t
(in)_S 56 _t
(mode)_S 1500 9291 _m
(D,)_S 62 _t
(and)_S 62 _t
(if)_S 62 _t
(no)_S 62 _t
(\(internally\))_S 62 _t
(lowercase)_S 62 _t
(symbols)_S 61 _t
(in)_S 62 _t
(modes)_S 62 _t
(A)_S 62 _t
(and)_S 62 _t
(B)_S 62 _t
(as)_S 62 _t
(well.)_S 62 _t
(In)_S 62 _t
(addition,)_S 62 _t
(symbols)_S 62 _t
(containing)_S 1500 9075 _m
(characters)_S 61 _t
(requiring)_S 61 _t
(quoting)_S 61 _t
(are)_S 61 _t
(compatible)_S 61 _t
(among)_S 61 _t
(all)_S 61 _t
(modes.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4728 11867 _m
(LAMBDA)_S 61 _t
(LISTS)_S 8699 11867 _m
(Page)_S 61 _t
(14)_S 1500 10986 _m
/HelveticaR 660 _ff
(LAMBDA)_S 73 _t
(LISTS)_S /Times-RomanR 550 _ff
1500 10550 _m
(There)_S 85 _t
(are)_S 84 _t
(several)_S 84 _t
(forms)_S 84 _t
(in)_S 84 _t
(XLISP)_S 84 _t
(that)_S 85 _t
(require)_S 84 _t
(that)_S 84 _t
(a)_S 84 _t
("lambda)_S 84 _t
(list")_S 84 _t
(be)_S 85 _t
(speci\256ed.)_S 84 _t
(A)_S 84 _t
(lambda)_S 84 _t
(list)_S 84 _t
(is)_S 84 _t
(a)_S 1500 10334 _m
(de\256nition)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(accepted)_S 61 _t
(by)_S 61 _t
(a)_S 61 _t
(function.)_S 61 _t
(There)_S 61 _t
(are)_S 61 _t
(four)_S 61 _t
(different)_S 61 _t
(types)_S 61 _t
(of)_S 61 _t
(ar)_S -3 _t
(guments.)_S 1500 9902 _m
(The)_S 52 _t
(lambda)_S 52 _t
(list)_S 51 _t
(starts)_S 52 _t
(with)_S 51 _t
(required)_S 52 _t
(ar)_S -3 _t
(guments.)_S 51 _t
(Required)_S 52 _t
(ar)_S -3 _t
(guments)_S 52 _t
(must)_S 51 _t
(be)_S 52 _t
(speci\256ed)_S 51 _t
(in)_S 52 _t
(every)_S 51 _t
(call)_S 52 _t
(to)_S 51 _t
(the)_S 1500 9686 _m
(function.)_S 1500 9254 _m
(The)_S 59 _t
(required)_S 59 _t
(ar)_S -3 _t
(guments)_S 59 _t
(are)_S 59 _t
(followed)_S 59 _t
(by)_S 59 _t
(the)_S 59 _t
(&optional)_S 59 _t
(ar)_S -3 _t
(guments.)_S 59 _t
(Optional)_S 59 _t
(ar)_S -3 _t
(guments)_S 59 _t
(may)_S 59 _t
(be)_S 59 _t
(provided)_S 1500 9038 _m
(or)_S 83 _t
(omitted)_S 82 _t
(in)_S 82 _t
(a)_S 83 _t
(call.)_S 82 _t
(An)_S 82 _t
(initialization)_S 83 _t
(expression)_S 82 _t
(may)_S 82 _t
(be)_S 83 _t
(speci\256ed)_S 82 _t
(to)_S 82 _t
(provide)_S 83 _t
(a)_S 82 _t
(default)_S 83 _t
(value)_S 82 _t
(for)_S 82 _t
(an)_S 1500 8822 _m
(&optional)_S 72 _t
(ar)_S -3 _t
(gument)_S 72 _t
(if)_S 72 _t
(it)_S 72 _t
(is)_S 72 _t
(omitted)_S 72 _t
(from)_S 72 _t
(a)_S 72 _t
(call.)_S 72 _t
(If)_S 72 _t
(no)_S 72 _t
(initialization)_S 72 _t
(expression)_S 72 _t
(is)_S 72 _t
(speci\256ed,)_S 72 _t
(an)_S 72 _t
(omitted)_S 1500 8606 _m
(ar)_S -3 _t
(gument)_S 59 _t
(is)_S 59 _t
(initialized)_S 58 _t
(to)_S 59 _t
(NIL.)_S 58 _t
(It)_S 59 _t
(is)_S 59 _t
(also)_S 58 _t
(possible)_S 59 _t
(to)_S 59 _t
(provide)_S 58 _t
(the)_S 59 _t
(name)_S 59 _t
(of)_S 59 _t
(a)_S 58 _t
('supplied-p')_S 59 _t
(variable)_S 59 _t
(that)_S 58 _t
(can)_S 1500 8390 _m
(be)_S 68 _t
(used)_S 67 _t
(to)_S 68 _t
(determine)_S 67 _t
(if)_S 68 _t
(a)_S 67 _t
(call)_S 68 _t
(provided)_S 67 _t
(a)_S 68 _t
(value)_S 67 _t
(for)_S 68 _t
(the)_S 67 _t
(ar)_S -3 _t
(gument)_S 68 _t
(or)_S 67 _t
(if)_S 68 _t
(the)_S 67 _t
(initialization)_S 68 _t
(expression)_S 67 _t
(was)_S 1500 8174 _m
(used.)_S 56 _t
(If)_S 55 _t
(speci\256ed,)_S 56 _t
(the)_S 55 _t
(supplied-p)_S 56 _t
(variable)_S 55 _t
(will)_S 56 _t
(be)_S 55 _t
(bound)_S 56 _t
(to)_S 55 _t
(T)_S 56 _t
(if)_S 55 _t
(a)_S 56 _t
(value)_S 55 _t
(was)_S 56 _t
(speci\256ed)_S 55 _t
(in)_S 56 _t
(the)_S 55 _t
(call)_S 56 _t
(and)_S 55 _t
(NIL)_S 1500 7958 _m
(if)_S 61 _t
(the)_S 61 _t
(default)_S 61 _t
(value)_S 61 _t
(was)_S 61 _t
(used.)_S 1500 7526 _m
(The)_S 72 _t
(&optional)_S 72 _t
(ar)_S -3 _t
(guments)_S 73 _t
(are)_S 72 _t
(followed)_S 72 _t
(by)_S 73 _t
(the)_S 72 _t
(&rest)_S 72 _t
(ar)_S -3 _t
(gument.)_S 72 _t
(The)_S 72 _t
(&rest)_S 72 _t
(ar)_S -3 _t
(gument)_S 73 _t
(gets)_S 72 _t
(bound)_S 72 _t
(to)_S 72 _t
(the)_S 1500 7310 _m
(remainder)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 61 _t
(after)_S 61 _t
(the)_S 61 _t
(required)_S 61 _t
(and)_S 61 _t
(&optional)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(have)_S 61 _t
(been)_S 61 _t
(removed.)_S 1500 6878 _m
(The)_S 84 _t
(&rest)_S 84 _t
(ar)_S -3 _t
(gument)_S 83 _t
(is)_S 84 _t
(followed)_S 83 _t
(by)_S 84 _t
(the)_S 84 _t
(&key)_S 83 _t
(ar)_S -3 _t
(guments.)_S 84 _t
(When)_S 83 _t
(a)_S 84 _t
(keyword)_S 84 _t
(ar)_S -3 _t
(gument)_S 83 _t
(is)_S 84 _t
(passed)_S 83 _t
(to)_S 84 _t
(a)_S 1500 6662 _m
(function,)_S 56 _t
(a)_S 57 _t
(pair)_S 57 _t
(of)_S 57 _t
(values)_S 56 _t
(appears)_S 57 _t
(in)_S 57 _t
(the)_S 57 _t
(ar)_S -3 _t
(gument)_S 56 _t
(list.)_S 57 _t
(The)_S 57 _t
(\256rst)_S 56 _t
(expression)_S 57 _t
(in)_S 57 _t
(the)_S 57 _t
(pair)_S 56 _t
(should)_S 57 _t
(evaluate)_S 57 _t
(to)_S 1500 6446 _m
(a)_S 61 _t
(keyword)_S 61 _t
(symbol)_S 62 _t
(\(a)_S 61 _t
(symbol)_S 62 _t
(that)_S 61 _t
(begins)_S 61 _t
(with)_S 62 _t
(a)_S 61 _t
(':'\).)_S 62 _t
(The)_S 61 _t
(value)_S 61 _t
(of)_S 62 _t
(the)_S 61 _t
(second)_S 61 _t
(expression)_S 62 _t
(is)_S 61 _t
(the)_S 61 _t
(value)_S 62 _t
(of)_S 1500 6230 _m
(the)_S 42 _t
(keyword)_S 41 _t
(ar)_S -3 _t
(gument.)_S 42 _t
(Like)_S 41 _t
(&optional)_S 41 _t
(ar)_S -3 _t
(guments,)_S 42 _t
(&key)_S 41 _t
(ar)_S -3 _t
(guments)_S 42 _t
(can)_S 41 _t
(have)_S 41 _t
(initialization)_S 42 _t
(expressions)_S 41 _t
(and)_S 1500 6014 _m
(supplied-p)_S 55 _t
(variables.)_S 56 _t
(In)_S 55 _t
(addition,)_S 55 _t
(it)_S 56 _t
(is)_S 55 _t
(possible)_S 56 _t
(to)_S 55 _t
(specify)_S 56 _t
(the)_S 55 _t
(keyword)_S 55 _t
(to)_S 56 _t
(be)_S 55 _t
(used)_S 56 _t
(in)_S 55 _t
(a)_S 56 _t
(function)_S 55 _t
(call.)_S 55 _t
(If)_S 56 _t
(no)_S 1500 5798 _m
(keyword)_S 69 _t
(is)_S 68 _t
(speci\256ed,)_S 69 _t
(the)_S 68 _t
(keyword)_S 69 _t
(obtained)_S 68 _t
(by)_S 69 _t
(adding)_S 69 _t
(a)_S 68 _t
(':')_S 69 _t
(to)_S 68 _t
(the)_S 69 _t
(beginning)_S 68 _t
(of)_S 69 _t
(the)_S 68 _t
(keyword)_S 69 _t
(ar)_S -3 _t
(gument)_S 1500 5582 _m
(symbol)_S 45 _t
(is)_S 45 _t
(used.)_S 45 _t
(In)_S 45 _t
(other)_S 45 _t
(words,)_S 44 _t
(if)_S 45 _t
(the)_S 45 _t
(keyword)_S 45 _t
(ar)_S -3 _t
(gument)_S 45 _t
(symbol)_S 45 _t
(is)_S 44 _t
('foo',)_S 45 _t
(the)_S 45 _t
(keyword)_S 45 _t
(will)_S 45 _t
(be)_S 45 _t
(':foo'.)_S 44 _t
(Extra)_S 1500 5366 _m
(keywords)_S 57 _t
(will)_S 58 _t
(signal)_S 57 _t
(an)_S 58 _t
(error)_S 57 _t
(unless)_S 58 _t
(&allow-other)_S -4 _t
(-keys)_S 58 _t
(is)_S 57 _t
(present,)_S 58 _t
(in)_S 57 _t
(which)_S 58 _t
(case)_S 58 _t
(the)_S 57 _t
(extra)_S 58 _t
(keywords)_S 58 _t
(are)_S 1500 5150 _m
(ignored.)_S 61 _t
(In)_S 61 _t
(XLISP)_S -20 _t
(,)_S 61 _t
(the)_S 61 _t
(&allow-other)_S -4 _t
(-keys)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(is)_S 61 _t
(ignored,)_S 61 _t
(and)_S 61 _t
(extra)_S 61 _t
(keywords)_S 61 _t
(are)_S 61 _t
(ignored.)_S 1500 4718 _m
(The)_S 52 _t
(&key)_S 52 _t
(ar)_S -3 _t
(guments)_S 52 _t
(are)_S 52 _t
(followed)_S 52 _t
(by)_S 52 _t
(the)_S 52 _t
(&aux)_S 52 _t
(variables.)_S 53 _t
(These)_S 52 _t
(are)_S 52 _t
(local)_S 52 _t
(variables)_S 52 _t
(that)_S 52 _t
(are)_S 52 _t
(bound)_S 52 _t
(during)_S 1500 4502 _m
(the)_S 47 _t
(evaluation)_S 48 _t
(of)_S 48 _t
(the)_S 48 _t
(function)_S 47 _t
(body)_S -12 _t
(.)_S 48 _t
(It)_S 48 _t
(is)_S 48 _t
(possible)_S 48 _t
(to)_S 48 _t
(have)_S 48 _t
(initialization)_S 47 _t
(expressions)_S 48 _t
(for)_S 48 _t
(the)_S 48 _t
(&aux)_S 48 _t
(variables.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4728 11867 _m
(LAMBDA)_S 61 _t
(LISTS)_S 8699 11867 _m
(Page)_S 61 _t
(15)_S 1500 11235 _m
(Here)_S 61 _t
(is)_S 61 _t
(the)_S 61 _t
(complete)_S 61 _t
(syntax)_S 61 _t
(for)_S 61 _t
(lambda)_S 61 _t
(lists:)_S 2100 10803 _m
(\(<rar)_S -3 _t
(g>...)_S 2100 10587 _m
61 _t
([&optional)_S 61 _t
([<oar)_S -3 _t
(g>)_S 61 _t
(|)_S 61 _t
(\(<oar)_S -3 _t
(g>)_S 61 _t
([<init>)_S 61 _t
([<svar>]]\)]...])_S 2100 10371 _m
61 _t
([&rest)_S 61 _t
(<rar)_S -3 _t
(g>])_S 2100 10155 _m
61 _t
([&key)_S 2100 9939 _m
61 _t
61 _t
([<kar)_S -3 _t
(g>)_S 61 _t
(|)_S 61 _t
(\([<kar)_S -3 _t
(g>)_S 61 _t
(|)_S 61 _t
(\(<key>)_S 61 _t
(<kar)_S -3 _t
(g>\)])_S 61 _t
([<init>)_S 61 _t
([<svar>]]\)])_S 61 _t
(...)_S 61 _t
([&allow-other)_S -4 _t
(-keys]])_S 2100 9723 _m
61 _t
([&aux)_S 61 _t
([<aux>)_S 61 _t
(|)_S 61 _t
(\(<aux>)_S 61 _t
([<init>]\)]...]\))_S 1500 9291 _m
61 _t
61 _t
61 _t
61 _t
(where:)_S 2100 8859 _m
(<rar)_S -3 _t
(g>)_S 3300 8859 _m
(is)_S 61 _t
(a)_S 61 _t
(required)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(symbol)_S 2100 8643 _m
(<oar)_S -3 _t
(g>)_S 3300 8643 _m
(is)_S 61 _t
(an)_S 61 _t
(&optional)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(symbol)_S 2100 8427 _m
(<rar)_S -3 _t
(g>)_S 3300 8427 _m
(is)_S 61 _t
(the)_S 61 _t
(&rest)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(symbol)_S 2100 8211 _m
(<kar)_S -3 _t
(g>)_S 3300 8211 _m
(is)_S 61 _t
(a)_S 61 _t
(&key)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(symbol)_S 2100 7995 _m
(<key>)_S 3300 7995 _m
(is)_S 61 _t
(a)_S 61 _t
(keyword)_S 61 _t
(symbol)_S 61 _t
(\(starts)_S 61 _t
(with)_S 61 _t
(':'\))_S 2100 7779 _m
(<aux>)_S 3300 7779 _m
(is)_S 61 _t
(an)_S 61 _t
(auxiliary)_S 61 _t
(variable)_S 61 _t
(symbol)_S 2100 7563 _m
(<init>)_S 3300 7563 _m
(is)_S 61 _t
(an)_S 61 _t
(initialization)_S 61 _t
(expression)_S 2100 7347 _m
(<svar>)_S 3300 7347 _m
(is)_S 61 _t
(a)_S 61 _t
(supplied-p)_S 61 _t
(variable)_S 61 _t
(symbol)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5013 11867 _m
(OBJECTS)_S 8699 11867 _m
(Page)_S 61 _t
(16)_S 1500 10986 _m
/HelveticaR 660 _ff
(OBJECTS)_S /Times-RomanR 550 _ff
1500 10550 _m
(De\256nitions:)_S 1500 10118 _m
(\267)_S 2100 10118 _m
(selector)_S 61 _t
(-)_S 61 _t
(a)_S 61 _t
(symbol)_S 61 _t
(used)_S 61 _t
(to)_S 61 _t
(select)_S 61 _t
(an)_S 61 _t
(appropriate)_S 61 _t
(method)_S 1500 9902 _m
(\267)_S 2100 9902 _m
(message)_S 61 _t
(-)_S 61 _t
(a)_S 61 _t
(selector)_S 61 _t
(and)_S 61 _t
(a)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(actual)_S 61 _t
(ar)_S -3 _t
(guments)_S 1500 9686 _m
(\267)_S 2100 9686 _m
(method)_S 61 _t
(-)_S 61 _t
(the)_S 61 _t
(code)_S 61 _t
(that)_S 61 _t
(implements)_S 61 _t
(a)_S 61 _t
(message)_S 1500 9254 _m
(Since)_S 52 _t
(XLISP)_S 52 _t
(was)_S 52 _t
(created)_S 52 _t
(to)_S 53 _t
(provide)_S 52 _t
(a)_S 52 _t
(simple)_S 52 _t
(basis)_S 52 _t
(for)_S 52 _t
(experimenting)_S 52 _t
(with)_S 52 _t
(object-oriented)_S 52 _t
(programming,)_S 1500 9038 _m
(one)_S 80 _t
(of)_S 80 _t
(the)_S 79 _t
(primitive)_S 80 _t
(data)_S 80 _t
(types)_S 79 _t
(included)_S 80 _t
(is)_S 79 _t
('object'.)_S 80 _t
(In)_S 80 _t
(XLISP)_S -20 _t
(,)_S 79 _t
(an)_S 80 _t
(object)_S 79 _t
(consists)_S 80 _t
(of)_S 79 _t
(a)_S 80 _t
(data)_S 79 _t
(structure)_S 1500 8822 _m
(containing)_S 52 _t
(a)_S 51 _t
(pointer)_S 51 _t
(to)_S 51 _t
(the)_S 52 _t
(object's)_S 51 _t
(class)_S 52 _t
(as)_S 51 _t
(well)_S 52 _t
(as)_S 51 _t
(an)_S 52 _t
(array)_S 51 _t
(containing)_S 52 _t
(the)_S 51 _t
(values)_S 52 _t
(of)_S 51 _t
(the)_S 52 _t
(object's)_S 51 _t
(instance)_S 1500 8606 _m
(variables.)_S 1500 8174 _m
(Officially)_S -12 _t
(,)_S 59 _t
(there)_S 59 _t
(is)_S 59 _t
(no)_S 59 _t
(way)_S 59 _t
(to)_S 60 _t
(see)_S 59 _t
(inside)_S 59 _t
(an)_S 59 _t
(object)_S 59 _t
(\(look)_S 59 _t
(at)_S 59 _t
(the)_S 59 _t
(values)_S 59 _t
(of)_S 59 _t
(its)_S 59 _t
(instance)_S 59 _t
(variables\).)_S 59 _t
(The)_S 59 _t
(only)_S 1500 7958 _m
(way)_S 61 _t
(to)_S 61 _t
(communicate)_S 61 _t
(with)_S 61 _t
(an)_S 61 _t
(object)_S 61 _t
(is)_S 61 _t
(by)_S 61 _t
(sending)_S 61 _t
(it)_S 61 _t
(a)_S 61 _t
(message.)_S 1500 7526 _m
(Y)_S -18 _t
(ou)_S 59 _t
(can)_S 58 _t
(send)_S 59 _t
(a)_S 58 _t
(message)_S 59 _t
(to)_S 58 _t
(an)_S 59 _t
(object)_S 58 _t
(using)_S 59 _t
(the)_S 59 _t
('send')_S 58 _t
(function.)_S 59 _t
(This)_S 58 _t
(function)_S 59 _t
(takes)_S 58 _t
(the)_S 59 _t
(object)_S 58 _t
(as)_S 59 _t
(its)_S 58 _t
(\256rst)_S 1500 7310 _m
(ar)_S -3 _t
(gument,)_S 86 _t
(the)_S 86 _t
(message)_S 86 _t
(selector)_S 87 _t
(as)_S 86 _t
(its)_S 86 _t
(second)_S 86 _t
(ar)_S -3 _t
(gument)_S 87 _t
(\(which)_S 86 _t
(must)_S 86 _t
(be)_S 87 _t
(a)_S 86 _t
(symbol\))_S 86 _t
(and)_S 86 _t
(the)_S 87 _t
(message)_S 1500 7094 _m
(ar)_S -3 _t
(guments)_S 61 _t
(as)_S 61 _t
(its)_S 61 _t
(remaining)_S 61 _t
(ar)_S -3 _t
(guments.)_S 1500 6662 _m
(The)_S 107 _t
('send')_S 107 _t
(function)_S 107 _t
(determines)_S 108 _t
(the)_S 107 _t
(class)_S 107 _t
(of)_S 107 _t
(the)_S 108 _t
(receiving)_S 107 _t
(object)_S 107 _t
(and)_S 107 _t
(attempts)_S 107 _t
(to)_S 107 _t
(\256nd)_S 107 _t
(a)_S 108 _t
(method)_S 1500 6446 _m
(corresponding)_S 56 _t
(to)_S 57 _t
(the)_S 57 _t
(message)_S 57 _t
(selector)_S 57 _t
(in)_S 57 _t
(the)_S 56 _t
(set)_S 57 _t
(of)_S 57 _t
(messages)_S 57 _t
(de\256ned)_S 57 _t
(for)_S 57 _t
(that)_S 56 _t
(class.)_S 57 _t
(If)_S 57 _t
(the)_S 57 _t
(message)_S 57 _t
(is)_S 57 _t
(not)_S 1500 6230 _m
(found)_S 47 _t
(in)_S 48 _t
(the)_S 47 _t
(object's)_S 47 _t
(class)_S 48 _t
(and)_S 47 _t
(the)_S 48 _t
(class)_S 47 _t
(has)_S 48 _t
(a)_S 47 _t
(super)_S -4 _t
(-class,)_S 48 _t
(the)_S 47 _t
(search)_S 47 _t
(continues)_S 48 _t
(by)_S 47 _t
(looking)_S 48 _t
(at)_S 47 _t
(the)_S 48 _t
(messages)_S 1500 6014 _m
(de\256ned)_S 51 _t
(for)_S 52 _t
(the)_S 51 _t
(super)_S -4 _t
(-class.)_S 51 _t
(This)_S 51 _t
(process)_S 51 _t
(continues)_S 51 _t
(from)_S 51 _t
(one)_S 51 _t
(super)_S -4 _t
(-class)_S 51 _t
(to)_S 51 _t
(the)_S 51 _t
(next)_S 51 _t
(until)_S 51 _t
(a)_S 51 _t
(method)_S 51 _t
(for)_S 51 _t
(the)_S 1500 5798 _m
(message)_S 61 _t
(is)_S 61 _t
(found.)_S 61 _t
(If)_S 61 _t
(no)_S 61 _t
(method)_S 61 _t
(is)_S 61 _t
(found,)_S 61 _t
(an)_S 61 _t
(error)_S 61 _t
(occurs.)_S 1500 5366 _m
(T)_S -13 _t
(o)_S 58 _t
(perform)_S 58 _t
(a)_S 57 _t
(method)_S 58 _t
(lookup)_S 58 _t
(starting)_S 58 _t
(with)_S 57 _t
(the)_S 58 _t
(method's)_S 58 _t
(superclass)_S 58 _t
(rather)_S 57 _t
(than)_S 58 _t
(the)_S 58 _t
(object's)_S 58 _t
(class,)_S 57 _t
(use)_S 58 _t
(the)_S 1500 5150 _m
(function)_S 53 _t
('send-super'.)_S 53 _t
(This)_S 53 _t
(allows)_S 53 _t
(a)_S 53 _t
(subclass)_S 54 _t
(to)_S 53 _t
(invoke)_S 53 _t
(a)_S 53 _t
(standard)_S 53 _t
(method)_S 53 _t
(in)_S 53 _t
(its)_S 53 _t
(parent)_S 53 _t
(class)_S 53 _t
(even)_S 54 _t
(though)_S 1500 4934 _m
(it)_S 61 _t
(overrides)_S 61 _t
(that)_S 61 _t
(method)_S 61 _t
(with)_S 61 _t
(its)_S 61 _t
(own)_S 61 _t
(specialized)_S 61 _t
(version.)_S 1500 4502 _m
(When)_S 60 _t
(a)_S 59 _t
(method)_S 60 _t
(is)_S 59 _t
(found,)_S 60 _t
(the)_S 60 _t
(evaluator)_S 59 _t
(binds)_S 60 _t
(the)_S 59 _t
(receiving)_S 60 _t
(object)_S 60 _t
(to)_S 59 _t
(the)_S 60 _t
(symbol)_S 59 _t
('self')_S 60 _t
(and)_S 59 _t
(evaluates)_S 60 _t
(the)_S 1500 4286 _m
(method)_S 48 _t
(using)_S 48 _t
(the)_S 47 _t
(remaining)_S 48 _t
(elements)_S 48 _t
(of)_S 48 _t
(the)_S 47 _t
(original)_S 48 _t
(list)_S 48 _t
(as)_S 48 _t
(ar)_S -3 _t
(guments)_S 47 _t
(to)_S 48 _t
(the)_S 48 _t
(method.)_S 48 _t
(These)_S 47 _t
(ar)_S -3 _t
(guments)_S 48 _t
(are)_S 1500 4070 _m
(always)_S 57 _t
(evaluated)_S 57 _t
(prior)_S 56 _t
(to)_S 57 _t
(being)_S 56 _t
(bound)_S 57 _t
(to)_S 56 _t
(their)_S 57 _t
(corresponding)_S 56 _t
(formal)_S 57 _t
(ar)_S -3 _t
(guments.)_S 57 _t
(The)_S 56 _t
(result)_S 57 _t
(of)_S 56 _t
(evaluating)_S 1500 3854 _m
(the)_S 61 _t
(method)_S 61 _t
(becomes)_S 61 _t
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(expression.)_S 1500 3422 _m
(T)_S -13 _t
(wo)_S 48 _t
(objects,)_S 48 _t
(both)_S 48 _t
(classes,)_S 48 _t
(are)_S 48 _t
(prede\256ned:)_S 48 _t
(Object)_S 48 _t
(and)_S 48 _t
(Class.)_S 48 _t
(Both)_S 48 _t
(Object)_S 49 _t
(and)_S 48 _t
(Class)_S 48 _t
(are)_S 48 _t
(of)_S 48 _t
(class)_S 48 _t
(Class.)_S 48 _t
(The)_S 1500 3206 _m
(superclass)_S 69 _t
(of)_S 68 _t
(Class)_S 69 _t
(is)_S 68 _t
(Object,)_S 69 _t
(while)_S 68 _t
(Object)_S 68 _t
(has)_S 69 _t
(no)_S 68 _t
(superclass.)_S 69 _t
(T)_S -13 _t
(ypical)_S 68 _t
(use)_S 69 _t
(is)_S 68 _t
(to)_S 69 _t
(create)_S 68 _t
(new)_S 69 _t
(classes)_S 68 _t
(\(by)_S 1500 2990 _m
(sending)_S 52 _t
(:new)_S 53 _t
(to)_S 53 _t
(Class\))_S 53 _t
(to)_S 53 _t
(represent)_S 53 _t
(application)_S 53 _t
(objects.)_S 53 _t
(Objects)_S 53 _t
(of)_S 53 _t
(these)_S 53 _t
(classes,)_S 53 _t
(created)_S 53 _t
(by)_S 53 _t
(sending)_S 53 _t
(:new)_S 1500 2774 _m
(to)_S 54 _t
(the)_S 54 _t
(appropriate)_S 53 _t
(new)_S 54 _t
(class,)_S 53 _t
(are)_S 54 _t
(subclasses)_S 54 _t
(of)_S 54 _t
(Object.)_S 53 _t
(The)_S 54 _t
(Object)_S 54 _t
(method)_S 54 _t
(:show)_S 53 _t
(can)_S 54 _t
(be)_S 54 _t
(used)_S 54 _t
(to)_S 53 _t
(view)_S 54 _t
(the)_S 1500 2558 _m
(contents)_S 61 _t
(of)_S 61 _t
(any)_S 61 _t
(object.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5013 11867 _m
(OBJECTS)_S 8699 11867 _m
(Page)_S 61 _t
(17)_S 1500 11019 _m
(THE)_S 61 _t
('Object')_S 61 _t
(CLASS)_S 1500 10587 _m
(Object)_S 122 _t
(THE)_S 61 _t
(T)_S -3 _t
(OP)_S 61 _t
(OF)_S 61 _t
(THE)_S 61 _t
(CLASS)_S 61 _t
(HEIRARCHY)_S 1500 10155 _m
(Messages:)_S 2100 9723 _m
(:show)_S 122 _t
5519 9723 _m
(SHOW)_S 61 _t
(AN)_S 61 _t
(OBJECT'S)_S 61 _t
(INST)_S -15 _t
(ANCE)_S 61 _t
(V)_S -23 _t
(ARIABLES)_S 3300 9507 _m
(returns)_S 4500 9507 _m
(the)_S 61 _t
(object)_S 2100 9075 _m
(:class)_S 122 _t
6163 9075 _m
(RETURN)_S 61 _t
(THE)_S 61 _t
(CLASS)_S 61 _t
(OF)_S 61 _t
(AN)_S 61 _t
(OBJECT)_S 3300 8859 _m
(returns)_S 4500 8859 _m
(the)_S 61 _t
(class)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(object)_S 2100 8427 _m
(:prin1)_S 61 _t
([<stream>])_S 122 _t
7620 8427 _m
(PRINT)_S 61 _t
(THE)_S 61 _t
(OBJECT)_S 3300 8211 _m
(<stream>)_S 4500 8211 _m
(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*)_S 3300 7995 _m
(returns)_S 4500 7995 _m
(the)_S 61 _t
(object)_S 2100 7563 _m
(:isnew)_S 122 _t
5023 7563 _m
(THE)_S 61 _t
(DEF)_S -13 _t
(AUL)_S -17 _t
(T)_S 61 _t
(OBJECT)_S 61 _t
(INITIALIZA)_S -20 _t
(TION)_S 61 _t
(ROUTINE)_S 3300 7347 _m
(returns)_S 4500 7347 _m
(the)_S 61 _t
(object)_S 2100 6915 _m
(:superclass)_S 61 _t
5878 6915 _m
(GET)_S 61 _t
(THE)_S 61 _t
(SUPERCLASS)_S 61 _t
(OF)_S 61 _t
(THE)_S 61 _t
(OBJECT)_S 3300 6699 _m
(returns)_S 4500 6699 _m
(NIL)_S 3300 6483 _m
(\(De\256ned)_S 61 _t
(in)_S 61 _t
(classes.lsp,)_S 61 _t
(see)_S 61 _t
(:superclass)_S 61 _t
(below\))_S 2100 6051 _m
(:ismemberof)_S 61 _t
(<class>)_S 61 _t
7477 6051 _m
(CLASS)_S 61 _t
(MEMBERSHIP)_S 3300 5835 _m
(<class>)_S 4500 5835 _m
(class)_S 61 _t
(name)_S 3300 5619 _m
(returns)_S 4500 5619 _m
(T)_S 61 _t
(if)_S 61 _t
(object)_S 61 _t
(member)_S 61 _t
(of)_S 61 _t
(class,)_S 61 _t
(else)_S 61 _t
(NIL)_S 3300 5403 _m
(\(de\256ned)_S 61 _t
(in)_S 61 _t
(classes.lsp\))_S 2100 4971 _m
(:iskindof)_S 61 _t
(<class>)_S 7477 4971 _m
(CLASS)_S 61 _t
(MEMBERSHIP)_S 3300 4755 _m
(<class>)_S 4500 4755 _m
(class)_S 61 _t
(name)_S 3300 4539 _m
(returns)_S 4500 4539 _m
(T)_S 61 _t
(if)_S 61 _t
(object)_S 61 _t
(member)_S 61 _t
(of)_S 61 _t
(class)_S 61 _t
(or)_S 61 _t
(subclass)_S 61 _t
(of)_S 61 _t
(class,)_S 61 _t
(else)_S 61 _t
(NIL)_S 3300 4323 _m
(\(de\256ned)_S 61 _t
(in)_S 61 _t
(classes.lsp\))_S 2100 3891 _m
(:respondsto)_S 61 _t
(<sel>)_S 7144 3891 _m
(SELECT)_S -3 _t
(OR)_S 61 _t
(KNOWLEDGE)_S 3300 3675 _m
(<sel>)_S 4500 3675 _m
(message)_S 61 _t
(selector)_S 3300 3459 _m
(returns)_S 4500 3459 _m
(T)_S 61 _t
(if)_S 61 _t
(object)_S 61 _t
(responds)_S 61 _t
(to)_S 61 _t
(message)_S 61 _t
(selector)_S -7 _t
(,)_S 61 _t
(else)_S 61 _t
(NIL.)_S 3300 3243 _m
(\(de\256ned)_S 61 _t
(in)_S 61 _t
(classes.lsp\))_S 2100 2811 _m
(:storeon)_S 7176 2811 _m
(READ)_S 61 _t
(REPRESENT)_S -15 _t
(A)_S -20 _t
(TION)_S 3300 2595 _m
(returns)_S 4500 2595 _m
(a)_S 61 _t
(list,)_S 60 _t
(that)_S 61 _t
(when)_S 61 _t
(executed)_S 60 _t
(will)_S 61 _t
(create)_S 60 _t
(a)_S 61 _t
(copy)_S 61 _t
(of)_S 60 _t
(the)_S 61 _t
(object.)_S 60 _t
(Only)_S 4500 2379 _m
(works)_S 61 _t
(for)_S 61 _t
(members)_S 61 _t
(of)_S 61 _t
(classes)_S 61 _t
(created)_S 61 _t
(with)_S 61 _t
(defclass.)_S 3300 2163 _m
(\(de\256ned)_S 61 _t
(in)_S 61 _t
(classes.lsp\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5013 11867 _m
(OBJECTS)_S 8699 11867 _m
(Page)_S 61 _t
(18)_S 1500 11019 _m
(THE)_S 61 _t
('Class')_S 61 _t
(CLASS)_S 1500 10587 _m
(Class)_S 183 _t
(THE)_S 61 _t
(CLASS)_S 61 _t
(OF)_S 61 _t
(ALL)_S 61 _t
(OBJECT)_S 61 _t
(CLASSES)_S 61 _t
(\(including)_S 61 _t
(itself\))_S 1500 10155 _m
(Messages:)_S 2100 9723 _m
(:new)_S 61 _t
5863 9723 _m
(CREA)_S -20 _t
(TE)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(INST)_S -15 _t
(ANCE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(CLASS)_S 3300 9507 _m
(returns)_S 4500 9507 _m
(the)_S 61 _t
(new)_S 61 _t
(class)_S 61 _t
(object)_S 2100 9075 _m
(:isnew)_S 61 _t
(<ivars>)_S 61 _t
([<cvars>)_S 61 _t
([<super>]])_S 122 _t
7040 9075 _m
(INITIALIZE)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(CLASS)_S 3300 8859 _m
(<ivars>)_S 4500 8859 _m
(the)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(instance)_S 61 _t
(variable)_S 61 _t
(symbol)_S 3300 8643 _m
(<cvars>)_S 4500 8643 _m
(the)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(class)_S 61 _t
(variable)_S 61 _t
(symbols)_S 3300 8427 _m
(<super>)_S 4500 8427 _m
(the)_S 61 _t
(superclass)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(Object\))_S 3300 8211 _m
(returns)_S 4500 8211 _m
(the)_S 61 _t
(new)_S 61 _t
(class)_S 61 _t
(object)_S 2100 7779 _m
(:answer)_S 61 _t
(<msg>)_S 61 _t
(<far)_S -3 _t
(gs>)_S 61 _t
(<code>)_S 122 _t
6666 7779 _m
(ADD)_S 61 _t
(A)_S 61 _t
(MESSAGE)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(CLASS)_S 3300 7563 _m
(<msg>)_S 4500 7563 _m
(the)_S 61 _t
(message)_S 61 _t
(symbol)_S 3300 7347 _m
(<far)_S -3 _t
(gs>)_S 4500 7347 _m
(the)_S 61 _t
(formal)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 61 _t
(\(lambda)_S 61 _t
(list\))_S 3300 7131 _m
(<code>)_S 4500 7131 _m
(a)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(executable)_S 61 _t
(expressions)_S 3300 6915 _m
(returns)_S 4500 6915 _m
(the)_S 61 _t
(object)_S 2100 6483 _m
(:superclass)_S 122 _t
5878 6483 _m
(GET)_S 61 _t
(THE)_S 61 _t
(SUPERCLASS)_S 61 _t
(OF)_S 61 _t
(THE)_S 61 _t
(OBJECT)_S 3300 6267 _m
(returns)_S 4500 6267 _m
(the)_S 61 _t
(superclass)_S 61 _t
(\(of)_S 61 _t
(the)_S 61 _t
(class\))_S 3300 6051 _m
(\(de\256ned)_S 61 _t
(in)_S 61 _t
(classes.lsp\))_S 2100 5619 _m
(:messages)_S 5420 5619 _m
(GET)_S 61 _t
(THE)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(MESSAGES)_S 61 _t
(OF)_S 61 _t
(THE)_S 61 _t
(CLASS)_S 3300 5403 _m
(returns)_S 4500 5403 _m
(association)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(message)_S 61 _t
(selectors)_S 61 _t
(and)_S 61 _t
(closures)_S 61 _t
(for)_S 61 _t
(messages.)_S 3300 5187 _m
(\(de\256ned)_S 61 _t
(in)_S 61 _t
(classes.lsp\))_S 2100 4755 _m
(:storeon)_S 7176 4755 _m
(READ)_S 61 _t
(REPRESENT)_S -15 _t
(A)_S -20 _t
(TION)_S 3300 4539 _m
(returns)_S 4500 4539 _m
(a)_S 47 _t
(list,)_S 46 _t
(that)_S 47 _t
(when)_S 47 _t
(executed)_S 46 _t
(will)_S 47 _t
(re-create)_S 47 _t
(the)_S 46 _t
(class)_S 47 _t
(and)_S 46 _t
(its)_S 47 _t
(methods.)_S 3300 4323 _m
(\(de\256ned)_S 61 _t
(in)_S 61 _t
(classes.lsp\))_S 1500 3891 _m
(When)_S 48 _t
(a)_S 48 _t
(new)_S 48 _t
(instance)_S 48 _t
(of)_S 48 _t
(a)_S 48 _t
(class)_S 48 _t
(is)_S 48 _t
(created)_S 48 _t
(by)_S 48 _t
(sending)_S 48 _t
(the)_S 48 _t
(message)_S 48 _t
(':new')_S 48 _t
(to)_S 48 _t
(an)_S 47 _t
(existing)_S 48 _t
(class,)_S 48 _t
(the)_S 48 _t
(message)_S 1500 3675 _m
(':isnew')_S 51 _t
(followed)_S 51 _t
(by)_S 51 _t
(whatever)_S 51 _t
(parameters)_S 51 _t
(were)_S 51 _t
(passed)_S 51 _t
(to)_S 51 _t
(the)_S 51 _t
(':new')_S 51 _t
(message)_S 51 _t
(is)_S 50 _t
(sent)_S 51 _t
(to)_S 51 _t
(the)_S 51 _t
(newly)_S 51 _t
(created)_S 1500 3459 _m
(object.)_S 55 _t
(Therefore,)_S 54 _t
(when)_S 55 _t
(a)_S 54 _t
(new)_S 55 _t
(class)_S 54 _t
(is)_S 55 _t
(created)_S 54 _t
(by)_S 55 _t
(sending)_S 54 _t
(':new')_S 55 _t
(to)_S 54 _t
(class)_S 55 _t
('Class')_S 54 _t
(the)_S 55 _t
(message)_S 54 _t
(':isnew')_S 55 _t
(is)_S 1500 3243 _m
(sent)_S 61 _t
(to)_S 61 _t
(Class)_S 61 _t
(automatically)_S -12 _t
(.)_S 61 _t
(T)_S -13 _t
(o)_S 61 _t
(create)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(class,)_S 61 _t
(a)_S 61 _t
(function)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(following)_S 61 _t
(format)_S 61 _t
(is)_S 61 _t
(used:)_S 2737 3027 _m
(\(setq)_S 61 _t
(<newclassname>)_S 61 _t
(\(send)_S 61 _t
(Class)_S 61 _t
(:new)_S 61 _t
(<ivars>)_S 61 _t
([<cvars>)_S 61 _t
([<super>]]\)\))_S 1500 2595 _m
(When)_S 52 _t
(a)_S 52 _t
(new)_S 52 _t
(class)_S 52 _t
(is)_S 51 _t
(created,)_S 52 _t
(an)_S 52 _t
(optional)_S 52 _t
(parameter)_S 52 _t
(may)_S 52 _t
(be)_S 51 _t
(speci\256ed)_S 52 _t
(indicating)_S 52 _t
(the)_S 52 _t
(superclass)_S 52 _t
(of)_S 51 _t
(the)_S 52 _t
(new)_S 1500 2379 _m
(class.)_S 47 _t
(If)_S 46 _t
(this)_S 46 _t
(parameter)_S 47 _t
(is)_S 46 _t
(omitted,)_S 46 _t
(the)_S 47 _t
(new)_S 46 _t
(class)_S 46 _t
(will)_S 46 _t
(be)_S 47 _t
(a)_S 46 _t
(subclass)_S 46 _t
(of)_S 47 _t
('Object'.)_S 46 _t
(A)_S 46 _t
(class)_S 47 _t
(inherits)_S 46 _t
(all)_S 46 _t
(instance)_S 1500 2163 _m
(variables,)_S 61 _t
(and)_S 61 _t
(methods)_S 61 _t
(from)_S 61 _t
(its)_S 61 _t
(super)_S -4 _t
(-class.)_S 61 _t
(Only)_S 61 _t
(class)_S 61 _t
(variables)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(method's)_S 61 _t
(class)_S 61 _t
(are)_S 61 _t
(accessable.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5013 11867 _m
(OBJECTS)_S 8699 11867 _m
(Page)_S 61 _t
(19)_S 1500 11235 _m
(INST)_S -15 _t
(ANCE)_S 61 _t
(V)_S -23 _t
(ARIABLES)_S 61 _t
(OF)_S 61 _t
(CLASS)_S 61 _t
('CLASS':)_S 2100 10803 _m
(MESSAGES)_S 61 _t
(-)_S 61 _t
(An)_S 61 _t
(association)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(message)_S 61 _t
(names)_S 61 _t
(and)_S 61 _t
(closures)_S 61 _t
(implementing)_S 61 _t
(the)_S 61 _t
(messages.)_S 2100 10371 _m
(IV)_S -23 _t
(ARS)_S 61 _t
(-)_S 61 _t
(List)_S 61 _t
(of)_S 61 _t
(names)_S 61 _t
(of)_S 61 _t
(instance)_S 61 _t
(variables.)_S 2100 9939 _m
(CV)_S -23 _t
(ARS)_S 61 _t
(-)_S 61 _t
(List)_S 61 _t
(of)_S 61 _t
(names)_S 61 _t
(of)_S 61 _t
(class)_S 61 _t
(variables.)_S 2100 9507 _m
(CV)_S -23 _t
(AL)_S 61 _t
(-)_S 61 _t
(Array)_S 61 _t
(of)_S 61 _t
(class)_S 61 _t
(variable)_S 61 _t
(values.)_S 2100 9075 _m
(SUPERCLASS)_S 61 _t
(-)_S 61 _t
(The)_S 61 _t
(superclass)_S 61 _t
(of)_S 61 _t
(this)_S 61 _t
(class)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(no)_S 61 _t
(superclass)_S 61 _t
(\(only)_S 61 _t
(for)_S 61 _t
(class)_S 61 _t
(OBJECT\).)_S 2100 8643 _m
(IV)_S -23 _t
(ARCNT)_S 61 _t
(-)_S 61 _t
(instance)_S 61 _t
(variables)_S 61 _t
(in)_S 61 _t
(this)_S 61 _t
(class)_S 61 _t
(\(length)_S 61 _t
(of)_S 61 _t
(IV)_S -23 _t
(ARS\))_S 2100 8211 _m
(IV)_S -23 _t
(AR)_S -11 _t
(T)_S -3 _t
(OT)_S -15 _t
(AL)_S 61 _t
(-)_S 61 _t
(total)_S 61 _t
(instance)_S 61 _t
(variables)_S 61 _t
(for)_S 61 _t
(this)_S 61 _t
(class)_S 61 _t
(and)_S 61 _t
(all)_S 61 _t
(superclasses)_S 61 _t
(of)_S 61 _t
(this)_S 61 _t
(class.)_S 2100 7779 _m
(PNAME)_S 61 _t
(-)_S 61 _t
(printname)_S 61 _t
(string)_S 61 _t
(for)_S 61 _t
(this)_S 61 _t
(class.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4967 11867 _m
(SYMBOLS)_S 8699 11867 _m
(Page)_S 61 _t
(20)_S 1500 10986 _m
/HelveticaR 660 _ff
(SYMBOLS)_S /Times-RomanR 550 _ff
1500 10550 _m
(All)_S 71 _t
(values)_S 70 _t
(are)_S 70 _t
(initially)_S 70 _t
(NIL)_S 71 _t
(unless)_S 70 _t
(otherwise)_S 70 _t
(speci\256ed.)_S 70 _t
(All)_S 71 _t
(are)_S 70 _t
(special)_S 70 _t
(variables)_S 71 _t
(unless)_S 70 _t
(indicated)_S 70 _t
(to)_S 70 _t
(be)_S 1500 10334 _m
(constants.)_S 1500 9902 _m
(\267)_S 2100 9902 _m
(NIL)_S 46 _t
(-)_S 45 _t
(represents)_S 46 _t
(empty)_S 45 _t
(list)_S 46 _t
(and)_S 45 _t
(the)_S 46 _t
(boolean)_S 45 _t
(value)_S 46 _t
(for)_S 45 _t
("false".)_S 46 _t
(The)_S 45 _t
(value)_S 46 _t
(of)_S 45 _t
(NIL)_S 46 _t
(is)_S 45 _t
(NIL,)_S 46 _t
(and)_S 45 _t
(cannot)_S 2100 9686 _m
(be)_S 61 _t
(changed)_S 61 _t
(\(it)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(constant\).)_S 61 _t
(\(car)_S 61 _t
(NIL\))_S 61 _t
(and)_S 61 _t
(\(cdr)_S 61 _t
(NIL\))_S 61 _t
(are)_S 61 _t
(also)_S 61 _t
(de\256ned)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(NIL.)_S 1500 9470 _m
(\267)_S 2100 9470 _m
(t)_S 61 _t
(-)_S 61 _t
(boolean)_S 61 _t
(value)_S 61 _t
("true")_S 61 _t
(is)_S 61 _t
(constant)_S 61 _t
(with)_S 61 _t
(value)_S 61 _t
(t.)_S 1500 9254 _m
(\267)_S 2100 9254 _m
(self)_S 61 _t
(-)_S 61 _t
(within)_S 61 _t
(a)_S 61 _t
(method)_S 61 _t
(context,)_S 61 _t
(the)_S 61 _t
(current)_S 61 _t
(object)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(16\),)_S 61 _t
(otherwise)_S 61 _t
(initially)_S 61 _t
(unbound.)_S 1500 9038 _m
(\267)_S 2100 9038 _m
(object)_S 61 _t
(-)_S 61 _t
(constant,)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(the)_S 61 _t
(class)_S 61 _t
('Object.')_S 1500 8822 _m
(\267)_S 2100 8822 _m
(class)_S 61 _t
(-)_S 61 _t
(constant,)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(the)_S 61 _t
(class)_S 61 _t
('Class'.)_S 1500 8606 _m
(\267)_S 2100 8606 _m
(internal-time-units-per)_S -4 _t
(-second)_S 41 _t
(-)_S 42 _t
(integer)_S 41 _t
(constant)_S 42 _t
(to)_S 41 _t
(divide)_S 42 _t
(returned)_S 41 _t
(times)_S 42 _t
(by)_S 41 _t
(to)_S 42 _t
(get)_S 41 _t
(time)_S 42 _t
(in)_S 41 _t
(seconds.)_S 1500 8390 _m
(\267)_S 2100 8390 _m
(pi)_S 61 _t
(-)_S 61 _t
(\257oating)_S 61 _t
(point)_S 61 _t
(aproximation)_S 61 _t
(of)_S 61 _t
(pi)_S 61 _t
(\(constant)_S 61 _t
(de\256ned)_S 61 _t
(when)_S 61 _t
(math)_S 61 _t
(extension)_S 61 _t
(is)_S 61 _t
(compiled\).)_S 1500 8174 _m
(\267)_S 2100 8174 _m
(*obarray*)_S 70 _t
(-)_S 70 _t
(the)_S 70 _t
(object)_S 70 _t
(hash)_S 70 _t
(table.)_S 70 _t
(Length)_S 70 _t
(of)_S 70 _t
(array)_S 70 _t
(is)_S 70 _t
(a)_S 70 _t
(compilation)_S 70 _t
(option.)_S 70 _t
(Objects)_S 70 _t
(are)_S 70 _t
(hashed)_S 2100 7958 _m
(using)_S 61 _t
(the)_S 61 _t
(hash)_S 61 _t
(function)_S 61 _t
(and)_S 61 _t
(are)_S 61 _t
(placed)_S 61 _t
(on)_S 61 _t
(a)_S 61 _t
(list)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(appropriate)_S 61 _t
(array)_S 61 _t
(slot.)_S 1500 7742 _m
(\267)_S 2100 7742 _m
(*terminal-io*)_S 61 _t
(-)_S 61 _t
(stream)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(keyboard)_S 61 _t
(and)_S 61 _t
(display)_S -12 _t
(.)_S 61 _t
(Do)_S 61 _t
(not)_S 61 _t
(alter)_S -10 _t
(.)_S 1500 7526 _m
(\267)_S 2100 7526 _m
(*standard-input*)_S 85 _t
(-)_S 85 _t
(the)_S 85 _t
(standard)_S 85 _t
(input)_S 85 _t
(stream,)_S 85 _t
(initially)_S 85 _t
(stdin.)_S 85 _t
(If)_S 86 _t
(stdin)_S 85 _t
(is)_S 85 _t
(not)_S 85 _t
(redirected)_S 85 _t
(on)_S 85 _t
(the)_S 2100 7310 _m
(command)_S 61 _t
(line,)_S 61 _t
(then)_S 61 _t
(*terminal-io*)_S 61 _t
(is)_S 61 _t
(used)_S 61 _t
(so)_S 61 _t
(that)_S 61 _t
(all)_S 61 _t
(interactive)_S 61 _t
(i/o)_S 61 _t
(uses)_S 61 _t
(the)_S 61 _t
(same)_S 61 _t
(stream.)_S 1500 7094 _m
(\267)_S 2100 7094 _m
(*standard-output*)_S 59 _t
(-)_S 59 _t
(the)_S 59 _t
(standard)_S 59 _t
(output)_S 59 _t
(stream,)_S 58 _t
(initially)_S 59 _t
(stdout.)_S 59 _t
(If)_S 59 _t
(stdout)_S 59 _t
(is)_S 59 _t
(not)_S 59 _t
(redirected)_S 59 _t
(on)_S 59 _t
(the)_S 2100 6878 _m
(command)_S 61 _t
(line)_S 61 _t
(then)_S 61 _t
(*terminal-io*)_S 61 _t
(is)_S 61 _t
(used)_S 61 _t
(so)_S 61 _t
(that)_S 61 _t
(all)_S 61 _t
(interactive)_S 61 _t
(i/o)_S 61 _t
(uses)_S 61 _t
(the)_S 61 _t
(same)_S 61 _t
(stream.)_S 1500 6662 _m
(\267)_S 2100 6662 _m
(*error)_S -4 _t
(-output*)_S 117 _t
(-)_S 117 _t
(the)_S 116 _t
(error)_S 117 _t
(output)_S 117 _t
(stream)_S 116 _t
(\(used)_S 117 _t
(by)_S 117 _t
(all)_S 116 _t
(error)_S 117 _t
(messages\),)_S 117 _t
(initially)_S 117 _t
(same)_S 116 _t
(as)_S 2100 6446 _m
(*terminal-io*.)_S 1500 6230 _m
(\267)_S 2100 6230 _m
(*trace-output*)_S 120 _t
(-)_S 120 _t
(the)_S 119 _t
(trace)_S 120 _t
(output)_S 119 _t
(stream)_S 120 _t
(\(used)_S 119 _t
(by)_S 120 _t
(the)_S 119 _t
(trace)_S 120 _t
(function\),)_S 119 _t
(initially)_S 120 _t
(same)_S 119 _t
(as)_S 2100 6014 _m
(*terminal-io*.)_S 1500 5798 _m
(\267)_S 2100 5798 _m
(*debug-io*)_S 58 _t
(-)_S 57 _t
(the)_S 58 _t
(break)_S 57 _t
(loop)_S 58 _t
(i/o)_S 57 _t
(stream,)_S 57 _t
(initially)_S 58 _t
(same)_S 57 _t
(as)_S 57 _t
(*terminal-io*.)_S 58 _t
(System)_S 57 _t
(messages)_S 115 _t
(\(other)_S 2100 5582 _m
(than)_S 61 _t
(error)_S 61 _t
(messages\))_S 61 _t
(also)_S 61 _t
(print)_S 61 _t
(out)_S 61 _t
(on)_S 61 _t
(this)_S 61 _t
(stream.)_S 1500 5366 _m
(\267)_S 2100 5366 _m
(*breakenable*)_S 61 _t
(-)_S 61 _t
(\257ag)_S 61 _t
(controlling)_S 61 _t
(entering)_S 61 _t
(break)_S 61 _t
(loop)_S 61 _t
(on)_S 61 _t
(errors)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(3\))_S 1500 5150 _m
(\267)_S 2100 5150 _m
(*tracelist*)_S 61 _t
(-)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(names)_S 61 _t
(of)_S 61 _t
(functions)_S 61 _t
(to)_S 61 _t
(trace,)_S 61 _t
(as)_S 61 _t
(set)_S 61 _t
(by)_S 61 _t
(trace)_S 61 _t
(function.)_S 1500 4934 _m
(\267)_S 2100 4934 _m
(*tracenable*)_S 61 _t
(-)_S 61 _t
(enable)_S 61 _t
(trace)_S 61 _t
(back)_S 61 _t
(printout)_S 61 _t
(on)_S 61 _t
(errors)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(3\).)_S 1500 4718 _m
(\267)_S 2100 4718 _m
(*tracelimit*)_S 61 _t
(-)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(levels)_S 61 _t
(of)_S 61 _t
(trace)_S 61 _t
(back)_S 61 _t
(information)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(3\).)_S 1500 4502 _m
(\267)_S 2100 4502 _m
(*evalhook*)_S 57 _t
(-)_S 56 _t
(user)_S 57 _t
(substitute)_S 56 _t
(for)_S 57 _t
(the)_S 56 _t
(evaluator)_S 57 _t
(function)_S 56 _t
(\(see)_S 56 _t
(page)_S 57 _t
(7,)_S 56 _t
(and)_S 57 _t
(evalhook)_S 56 _t
(and)_S 56 _t
(applyhook)_S 2100 4286 _m
(functions\).)_S 1500 4070 _m
(\267)_S 2100 4070 _m
(*applyhook*)_S 60 _t
(-)_S 60 _t
(user)_S 60 _t
(substitute)_S 60 _t
(for)_S 60 _t
(function)_S 60 _t
(application)_S 60 _t
(\(see)_S 60 _t
(page)_S 60 _t
(7,)_S 60 _t
(and)_S 60 _t
(evalhook)_S 59 _t
(and)_S 60 _t
(applyhook)_S 2100 3854 _m
(functions\).)_S 1500 3638 _m
(\267)_S 2100 3638 _m
(*readtable*)_S 61 _t
(-)_S 61 _t
(the)_S 61 _t
(current)_S 61 _t
(readtable)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(10\).)_S 1500 3422 _m
(\267)_S 2100 3422 _m
(*unbound*)_S 56 _t
(-)_S 55 _t
(indicator)_S 55 _t
(for)_S 55 _t
(unbound)_S 56 _t
(symbols.)_S 55 _t
(A)_S 56 _t
(constant.)_S 55 _t
(Do)_S 55 _t
(not)_S 55 _t
(use)_S 56 _t
(this)_S 55 _t
(symbol)_S 55 _t
(since)_S 55 _t
(accessing)_S 2100 3206 _m
(any)_S 61 _t
(variable)_S 61 _t
(to)_S 61 _t
(which)_S 61 _t
(this)_S 61 _t
(has)_S 61 _t
(been)_S 61 _t
(bound)_S 61 _t
(will)_S 61 _t
(cause)_S 61 _t
(an)_S 61 _t
(unbound)_S 61 _t
(symbol)_S 61 _t
(error)_S 61 _t
(message.)_S 1500 2990 _m
(\267)_S 2100 2990 _m
(*gc-\257ag*)_S 57 _t
(-)_S 56 _t
(controls)_S 57 _t
(the)_S 56 _t
(printing)_S 56 _t
(of)_S 57 _t
(gc)_S 56 _t
(messages.)_S 57 _t
(When)_S 56 _t
(non-NIL,)_S 56 _t
(a)_S 57 _t
(message)_S 56 _t
(is)_S 57 _t
(printed)_S 56 _t
(after)_S 56 _t
(each)_S 2100 2774 _m
(garbage)_S 61 _t
(collection)_S 61 _t
(giving)_S 61 _t
(the)_S 61 _t
(total)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(nodes)_S 61 _t
(and)_S 61 _t
(the)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(nodes)_S 61 _t
(free.)_S 1500 2558 _m
(\267)_S 2100 2558 _m
(*gc-hook*)_S 61 _t
(-)_S 61 _t
(function)_S 61 _t
(to)_S 61 _t
(call)_S 61 _t
(after)_S 61 _t
(garbage)_S 61 _t
(collection)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(7\).)_S 1500 2342 _m
(\267)_S 2100 2342 _m
(*integer)_S -4 _t
(-format*)_S 62 _t
(-)_S 62 _t
(format)_S 62 _t
(for)_S 62 _t
(printing)_S 61 _t
(integers)_S 62 _t
(\(when)_S 62 _t
(not)_S 62 _t
(bound)_S 62 _t
(to)_S 62 _t
(a)_S 62 _t
(string,)_S 62 _t
(defaults)_S 62 _t
(to)_S 62 _t
("%d")_S 62 _t
(or)_S 2100 2126 _m
("%ld")_S 61 _t
(depending)_S 61 _t
(on)_S 61 _t
(implementation\))_S 1500 1910 _m
(\267)_S 2100 1910 _m
(*ratio-format*)_S 65 _t
(-)_S 65 _t
(format)_S 66 _t
(for)_S 65 _t
(printing)_S 65 _t
(ratios)_S 65 _t
(\(when)_S 65 _t
(not)_S 65 _t
(bound)_S 65 _t
(to)_S 65 _t
(a)_S 65 _t
(string,)_S 65 _t
(defaults)_S 65 _t
(to)_S 65 _t
("%d/%d")_S 65 _t
(or)_S 2100 1694 _m
("%ld/%ld")_S 61 _t
(depending)_S 61 _t
(on)_S 61 _t
(implementation\))_S 1500 1478 _m
(\267)_S 2100 1478 _m
(*\257oat-format*)_S 61 _t
(-)_S 61 _t
(format)_S 61 _t
(for)_S 61 _t
(printing)_S 61 _t
(\257oats)_S 61 _t
(\(when)_S 61 _t
(not)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(a)_S 61 _t
(string,)_S 61 _t
(defaults)_S 61 _t
(to)_S 61 _t
("%g"\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4967 11867 _m
(SYMBOLS)_S 8699 11867 _m
(Page)_S 61 _t
(21)_S 1500 11235 _m
(\267)_S 2100 11235 _m
(*readtable-case*)_S 61 _t
(-)_S 61 _t
(symbol)_S 61 _t
(read)_S 61 _t
(and)_S 61 _t
(output)_S 61 _t
(case.)_S 61 _t
(See)_S 61 _t
(page)_S 61 _t
(12)_S 61 _t
(for)_S 61 _t
(details)_S 1500 11019 _m
(\267)_S 2100 11019 _m
(*print-case*)_S 61 _t
(-)_S 61 _t
(symbol)_S 61 _t
(output)_S 61 _t
(case)_S 61 _t
(when)_S 61 _t
(printing.)_S 61 _t
(See)_S 61 _t
(page)_S 61 _t
(12)_S 61 _t
(for)_S 61 _t
(details)_S 1500 10803 _m
(\267)_S 2100 10803 _m
(*print-level*)_S 53 _t
(-)_S 53 _t
(When)_S 53 _t
(bound)_S 54 _t
(to)_S 53 _t
(a)_S 53 _t
(number)_S -7 _t
(,)_S 53 _t
(list)_S 53 _t
(levels)_S 53 _t
(beyond)_S 53 _t
(this)_S 54 _t
(value)_S 53 _t
(are)_S 53 _t
(printed)_S 53 _t
(as)_S 53 _t
('#'.)_S 53 _t
(Used)_S 53 _t
(by)_S 2100 10587 _m
(all)_S 61 _t
(printing)_S 61 _t
(functions.)_S 61 _t
(Good)_S 61 _t
(precaution)_S 61 _t
(to)_S 61 _t
(avoid)_S 61 _t
(getting)_S 61 _t
(caught)_S 61 _t
(in)_S 61 _t
(circular)_S 61 _t
(lists.)_S 1500 10371 _m
(\267)_S 2100 10371 _m
(*print-length*)_S 52 _t
(-)_S 51 _t
(When)_S 51 _t
(bound)_S 51 _t
(to)_S 51 _t
(a)_S 51 _t
(number)_S -7 _t
(,)_S 51 _t
(lists)_S 51 _t
(longer)_S 51 _t
(than)_S 51 _t
(this)_S 51 _t
(value)_S 51 _t
(are)_S 51 _t
(printed)_S 51 _t
(as)_S 51 _t
('...'.)_S 51 _t
(Used)_S 51 _t
(by)_S 2100 10155 _m
(all)_S 61 _t
(printing)_S 61 _t
(functions.)_S 61 _t
(Good)_S 61 _t
(precaution)_S 61 _t
(to)_S 61 _t
(avoid)_S 61 _t
(getting)_S 61 _t
(caught)_S 61 _t
(in)_S 61 _t
(circular)_S 61 _t
(lists.)_S 1500 9939 _m
(\267)_S 2100 9939 _m
(*dos-input*)_S 61 _t
(-)_S 61 _t
(When)_S 61 _t
(not)_S 61 _t
(NIL,)_S 61 _t
(uses)_S 61 _t
(dos)_S 61 _t
(line)_S 61 _t
(input)_S 61 _t
(function)_S 61 _t
(for)_S 61 _t
(read)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(2\).)_S 1500 9723 _m
(\267)_S 2100 9723 _m
(*displace-macros*)_S 50 _t
(-)_S 49 _t
(When)_S 49 _t
(not)_S 49 _t
(NIL,)_S 49 _t
(macros)_S 49 _t
(are)_S 49 _t
(replaced)_S 49 _t
(by)_S 49 _t
(their)_S 49 _t
(expansions)_S 49 _t
(when)_S 49 _t
(exectuted)_S 49 _t
(\(see)_S 2100 9507 _m
(page)_S 61 _t
(6\).)_S 1500 9291 _m
(\267)_S 2100 9291 _m
(*random-state*)_S 61 _t
(-)_S 61 _t
(the)_S 61 _t
(default)_S 61 _t
(random-state)_S 61 _t
(used)_S 61 _t
(by)_S 61 _t
(the)_S 61 _t
(random)_S 61 _t
(function.)_S 1500 8859 _m
(There)_S 59 _t
(are)_S 59 _t
(several)_S 60 _t
(symbols)_S 59 _t
(maintained)_S 60 _t
(by)_S 59 _t
(the)_S 60 _t
(read/eval/print)_S 59 _t
(loop.)_S 60 _t
(The)_S 59 _t
(symbols)_S 60 _t
('+',)_S 59 _t
('++',)_S 60 _t
(and)_S 59 _t
('+++')_S 60 _t
(are)_S 1500 8643 _m
(bound)_S 56 _t
(to)_S 55 _t
(the)_S 55 _t
(most)_S 56 _t
(recent)_S 55 _t
(three)_S 56 _t
(input)_S 55 _t
(expressions.)_S 55 _t
(The)_S 56 _t
(symbols)_S 55 _t
('*',)_S 56 _t
('**')_S 55 _t
(and)_S 55 _t
('***')_S 56 _t
(are)_S 55 _t
(bound)_S 56 _t
(to)_S 55 _t
(the)_S 55 _t
(most)_S 1500 8427 _m
(recent)_S 58 _t
(three)_S 58 _t
(results.)_S 58 _t
(The)_S 57 _t
(symbol)_S 58 _t
('-')_S 58 _t
(is)_S 58 _t
(bound)_S 58 _t
(to)_S 58 _t
(the)_S 57 _t
(expression)_S 58 _t
(currently)_S 58 _t
(being)_S 58 _t
(evaluated.)_S 58 _t
(It)_S 58 _t
(becomes)_S 58 _t
(the)_S 1500 8211 _m
(value)_S 61 _t
(of)_S 61 _t
('+')_S 61 _t
(at)_S 61 _t
(the)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(evaluation.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4260 11867 _m
(EVALUATION)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(22)_S 1500 10986 _m
/HelveticaR 660 _ff
(EV)_S -15 _t
(ALUA)_S -15 _t
(TION)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(eval)_S 61 _t
(<expr>\))_S 122 _t
6298 10550 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TE)_S 61 _t
(AN)_S 61 _t
(XLISP)_S 61 _t
(EXPRESSION)_S 2100 10334 _m
(<expr>)_S 3300 10334 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(evaluated)_S 2100 10118 _m
(returns)_S 3300 10118 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(evaluating)_S 61 _t
(the)_S 61 _t
(expression)_S 1500 9686 _m
(\(apply)_S 61 _t
(<fun>)_S 61 _t
(<ar)_S -3 _t
(g>...<ar)_S -3 _t
(gs>\))_S 122 _t
5116 9686 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(A)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(ARGUMENTS)_S 2100 9470 _m
(<fun>)_S 3300 9470 _m
(the)_S 61 _t
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(\(or)_S 61 _t
(function)_S 61 _t
(symbol\).)_S 61 _t
(May)_S 61 _t
(not)_S 61 _t
(be)_S 61 _t
(macro)_S 61 _t
(or)_S 61 _t
(fsubr)_S -10 _t
(.)_S 2100 9254 _m
(<ar)_S -3 _t
(g>)_S 3300 9254 _m
(initial)_S 61 _t
(ar)_S -3 _t
(guments,)_S 61 _t
(which)_S 61 _t
(are)_S 61 _t
(CONSed)_S 61 _t
(to...)_S 2100 9038 _m
(<ar)_S -3 _t
(gs>)_S 3300 9038 _m
(the)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 2100 8822 _m
(returns)_S 3300 8822 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(applying)_S 61 _t
(the)_S 61 _t
(function)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(ar)_S -3 _t
(guments)_S 1500 8390 _m
(\(funcall)_S 61 _t
(<fun>)_S 61 _t
(<ar)_S -3 _t
(g>...\))_S 122 _t
5899 8390 _m
(CALL)_S 61 _t
(A)_S 61 _t
(FUNCTION)_S 61 _t
(WITH)_S 61 _t
(ARGUMENTS)_S 2100 8174 _m
(<fun>)_S 3300 8174 _m
(the)_S 61 _t
(function)_S 61 _t
(to)_S 61 _t
(call)_S 61 _t
(\(or)_S 61 _t
(function)_S 61 _t
(symbol\).)_S 61 _t
(May)_S 61 _t
(not)_S 61 _t
(be)_S 61 _t
(macro)_S 61 _t
(or)_S 61 _t
(fsubr)_S -10 _t
(.)_S 2100 7958 _m
(<ar)_S -3 _t
(g>)_S 3300 7958 _m
(ar)_S -3 _t
(guments)_S 61 _t
(to)_S 61 _t
(pass)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(function)_S 2100 7742 _m
(returns)_S 3300 7742 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(calling)_S 61 _t
(the)_S 61 _t
(function)_S 61 _t
(with)_S 61 _t
(the)_S 61 _t
(ar)_S -3 _t
(guments)_S 1500 7310 _m
(\(quote)_S 61 _t
(<expr>\))_S 122 _t
5677 7310 _m
(RETURN)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 61 _t
(UNEV)_S -23 _t
(ALUA)_S -20 _t
(TED)_S 2100 7094 _m
(fsubr)_S 2100 6878 _m
(<expr>)_S 3300 6878 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(quoted)_S 61 _t
(\(quoted\))_S 2100 6662 _m
(returns)_S 3300 6662 _m
(<expr>)_S 61 _t
(unevaluated)_S 1500 6230 _m
(\(function)_S 61 _t
(<expr>\))_S 122 _t
5710 6230 _m
(GET)_S 61 _t
(THE)_S 61 _t
(FUNCTIONAL)_S 61 _t
(INTERPRET)_S -15 _t
(A)_S -20 _t
(TION)_S 2100 6014 _m
(fsubr)_S 2100 5798 _m
(<expr>)_S 3300 5798 _m
(the)_S 61 _t
(symbol)_S 61 _t
(or)_S 61 _t
(lambda)_S 61 _t
(expression)_S 61 _t
(\(quoted\))_S 2100 5582 _m
(returns)_S 3300 5582 _m
(the)_S 61 _t
(functional)_S 61 _t
(interpretation)_S 1500 5150 _m
(\(identity)_S 61 _t
(<expr>\))_S 6978 5150 _m
(RETURN)_S 61 _t
(THE)_S 61 _t
(EXPRESSION)_S 2100 4934 _m
(New)_S 61 _t
(function.)_S 61 _t
(In)_S 61 _t
(common.lsp)_S 2100 4718 _m
(<expr>)_S 3300 4718 _m
(the)_S 61 _t
(expression)_S 2100 4502 _m
(returns)_S 3300 4502 _m
(the)_S 61 _t
(expression)_S 1500 4070 _m
(\(backquote)_S 61 _t
(<expr>\))_S 122 _t
7467 4070 _m
(FILL)_S 61 _t
(IN)_S 61 _t
(A)_S 61 _t
(TEMPLA)_S -20 _t
(TE)_S 2100 3854 _m
(fsubr)_S -10 _t
(.)_S 62 _t
(Note:)_S 62 _t
(an)_S 61 _t
(improved)_S 62 _t
(backquote)_S 62 _t
(facility)_S -12 _t
(,)_S 61 _t
(which)_S 62 _t
(works)_S 62 _t
(properly)_S 61 _t
(when)_S 62 _t
(nested,)_S 62 _t
(is)_S 62 _t
(available)_S 61 _t
(by)_S 2100 3638 _m
(loading)_S 61 _t
(the)_S 61 _t
(\256le)_S 61 _t
(backquot.lsp.)_S 2100 3422 _m
(<expr>)_S 3300 3422 _m
(the)_S 61 _t
(template)_S 61 _t
(\(quoted\))_S 2100 3206 _m
(returns)_S 3300 3206 _m
(a)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(template)_S 61 _t
(with)_S 61 _t
(comma)_S 61 _t
(and)_S 61 _t
(comma-at)_S 61 _t
(expressions)_S 61 _t
(expanded.)_S 1500 2774 _m
(\(comma)_S 61 _t
(<expr>\))_S 7416 2774 _m
(COMMA)_S 61 _t
(EXPRESSION)_S 2100 2558 _m
(\(Never)_S 42 _t
(executed\))_S 42 _t
(As)_S 42 _t
(the)_S 42 _t
(object)_S 42 _t
(of)_S 42 _t
(a)_S 41 _t
(backquote)_S 42 _t
(expansion,)_S 42 _t
(the)_S 42 _t
(expression)_S 42 _t
(is)_S 42 _t
(evaluated)_S 42 _t
(and)_S 42 _t
(becomes)_S 2100 2342 _m
(an)_S 61 _t
(object)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(enclosing)_S 61 _t
(list.)_S 1500 1910 _m
(\(comma-at)_S 61 _t
(<expr>\))_S 7130 1910 _m
(COMMA-A)_S -20 _t
(T)_S 61 _t
(EXPRESSION)_S 2100 1694 _m
(\(Never)_S 58 _t
(executed\))_S 57 _t
(As)_S 58 _t
(the)_S 58 _t
(object)_S 58 _t
(of)_S 58 _t
(a)_S 58 _t
(backquote)_S 58 _t
(expansion,)_S 58 _t
(the)_S 58 _t
(expression)_S 57 _t
(is)_S 58 _t
(evaluated)_S 58 _t
(\(and)_S 58 _t
(must)_S 2100 1478 _m
(evaluate)_S 61 _t
(to)_S 61 _t
(a)_S 61 _t
(list\))_S 61 _t
(and)_S 61 _t
(is)_S 61 _t
(then)_S 61 _t
(spliced)_S 61 _t
(into)_S 61 _t
(the)_S 61 _t
(enclosing)_S 61 _t
(list.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4260 11867 _m
(EVALUATION)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(23)_S 1500 11235 _m
(\(lambda)_S 61 _t
(<ar)_S -3 _t
(gs>)_S 61 _t
(<expr>...\))_S 122 _t
6683 11235 _m
(MAKE)_S 61 _t
(A)_S 61 _t
(FUNCTION)_S 61 _t
(CLOSURE)_S 2100 11019 _m
(fsubr)_S 2100 10803 _m
(<ar)_S -3 _t
(gs>)_S 3300 10803 _m
(formal)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 61 _t
(\(lambda)_S 61 _t
(list\))_S 61 _t
(\(quoted\))_S 2100 10587 _m
(<expr>)_S 3300 10587 _m
(expressions)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 61 _t
(body)_S 61 _t
(\(quoted\))_S 2100 10371 _m
(returns)_S 3300 10371 _m
(the)_S 61 _t
(function)_S 61 _t
(closure)_S 1500 9939 _m
(\(get-lambda-expression)_S 61 _t
(<closure>\))_S 122 _t
6500 9939 _m
(GET)_S 61 _t
(THE)_S 61 _t
(LAMBDA)_S 61 _t
(EXPRESSION)_S 2100 9723 _m
(<closure>)_S 3300 9723 _m
(the)_S 61 _t
(closure)_S 2100 9507 _m
(returns)_S 3300 9507 _m
(the)_S 61 _t
(original)_S 61 _t
(lambda)_S 61 _t
(expression)_S 1500 9075 _m
(\(macroexpand)_S 61 _t
(<form>\))_S 122 _t
5893 9075 _m
(RECURSIVEL)_S -18 _t
(Y)_S 61 _t
(EXP)_S -17 _t
(AND)_S 61 _t
(MACRO)_S 61 _t
(CALLS)_S 2100 8859 _m
(<form>)_S 3300 8859 _m
(the)_S 61 _t
(form)_S 61 _t
(to)_S 61 _t
(expand)_S 2100 8643 _m
(returns)_S 3300 8643 _m
(the)_S 61 _t
(macro)_S 61 _t
(expansion)_S 1500 8211 _m
(\(macroexpand-1)_S 61 _t
(<form>\))_S 122 _t
7107 8211 _m
(EXP)_S -17 _t
(AND)_S 61 _t
(A)_S 61 _t
(MACRO)_S 61 _t
(CALL)_S 2100 7995 _m
(<form>)_S 3300 7995 _m
(the)_S 61 _t
(macro)_S 61 _t
(call)_S 61 _t
(form)_S 2100 7779 _m
(returns)_S 3300 7779 _m
(the)_S 61 _t
(macro)_S 61 _t
(expansion)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4473 11867 _m
(SYMBOL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(24)_S 1500 10986 _m
/HelveticaR 660 _ff
(SYMBOL)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(set)_S 61 _t
(<sym>)_S 61 _t
(<expr>\))_S 122 _t
5779 10550 _m
(SET)_S 61 _t
(THE)_S 61 _t
(GLOBAL)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 2100 10334 _m
(<sym>)_S 3300 10334 _m
(the)_S 61 _t
(symbol)_S 61 _t
(being)_S 61 _t
(set)_S 2100 10118 _m
(<expr>)_S 3300 10118 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 2100 9902 _m
(returns)_S 3300 9902 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 1500 9470 _m
(\(setq)_S 61 _t
([<sym>)_S 61 _t
(<expr>]...\))_S 122 _t
6584 9470 _m
(SET)_S 61 _t
(THE)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 2100 9254 _m
(fsubr)_S 2100 9038 _m
(<sym>)_S 3300 9038 _m
(the)_S 61 _t
(symbol)_S 61 _t
(being)_S 61 _t
(set)_S 61 _t
(\(quoted\))_S 2100 8822 _m
(<expr>)_S 3300 8822 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 2100 8606 _m
(returns)_S 3300 8606 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 1500 8174 _m
(\(psetq)_S 61 _t
([<sym>)_S 61 _t
(<expr>]...\))_S 61 _t
6649 8174 _m
61 _t
(P)_S -17 _t
(ARALLEL)_S 61 _t
(VERSION)_S 61 _t
(OF)_S 61 _t
(SETQ)_S 2100 7958 _m
(fsubr)_S -10 _t
(.)_S 61 _t
(All)_S 61 _t
(expressions)_S 61 _t
(are)_S 61 _t
(evaluated)_S 61 _t
(before)_S 61 _t
(any)_S 61 _t
(assignments)_S 61 _t
(are)_S 61 _t
(made.)_S 2100 7742 _m
(<sym>)_S 3300 7742 _m
(the)_S 61 _t
(symbol)_S 61 _t
(being)_S 61 _t
(set)_S 61 _t
(\(quoted\))_S 2100 7526 _m
(<expr>)_S 3300 7526 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 2100 7310 _m
(returns)_S 3300 7310 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 1500 6878 _m
(\(setf)_S 61 _t
([<place>)_S 61 _t
(<expr>]...\))_S 122 _t
6828 6878 _m
(SET)_S 61 _t
(THE)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(FIELD)_S 2100 6662 _m
(fsubr)_S 2100 6446 _m
(<place>)_S 3080 6446 _m
(the)_S 47 _t
(\256eld)_S 48 _t
(speci\256er)_S 48 _t
(\(if)_S 48 _t
(a)_S 47 _t
(macro)_S 48 _t
(it)_S 47 _t
(is)_S 48 _t
(expanded,)_S 48 _t
(then)_S 48 _t
(the)_S 47 _t
(form)_S 48 _t
(ar)_S -3 _t
(guments)_S 48 _t
(are)_S 48 _t
(evaluated\):)_S 3080 6230 _m
(<sym>)_S 5700 6230 _m
(set)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(symbol)_S 3080 6014 _m
(\(car)_S 61 _t
(<expr>\))_S 5700 6014 _m
(set)_S 61 _t
(car)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(cons)_S 61 _t
(node)_S 3080 5798 _m
(\(cdr)_S 61 _t
(<expr>\))_S 5700 5798 _m
(set)_S 61 _t
(cdr)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(cons)_S 61 _t
(node)_S 3080 5582 _m
(\(nth)_S 61 _t
(<n>)_S 61 _t
(<expr>\))_S 5700 5582 _m
(set)_S 61 _t
(nth)_S 61 _t
(car)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(list)_S 3080 5366 _m
(\(aref)_S 61 _t
(<expr>)_S 61 _t
(<n>\))_S 5700 5366 _m
(set)_S 61 _t
(nth)_S 61 _t
(element)_S 61 _t
(of)_S 61 _t
(an)_S 61 _t
(array)_S 61 _t
(or)_S 61 _t
(string)_S 3080 5150 _m
(\(elt)_S 61 _t
(<expr>)_S 61 _t
(<n>\))_S 5700 5150 _m
(set)_S 61 _t
(nth)_S 61 _t
(element)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(sequence)_S 2100 4934 _m
61 _t
3080 4934 _m
(\(get)_S 61 _t
(<sym>)_S 61 _t
(<prop>\))_S 5700 4934 _m
(set)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(property)_S 3080 4718 _m
(\(symbol-value)_S 61 _t
(<sym>\))_S 5700 4718 _m
(set)_S 61 _t
(global)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(symbol)_S 3080 4502 _m
(\(symbol-function)_S 61 _t
(<sym>\))_S 5700 4502 _m
(set)_S 61 _t
(functional)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(symbol)_S 3080 4286 _m
(\(symbol-plist)_S 61 _t
(<sym>\))_S 5700 4286 _m
(set)_S 61 _t
(property)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(symbol)_S 3080 4070 _m
(\(gethash)_S 61 _t
(<key>)_S 61 _t
(<tbl>)_S 61 _t
(<def>\))_S 5700 4070 _m
(add)_S 53 _t
(or)_S 53 _t
(replace)_S 54 _t
(hash)_S 53 _t
(table)_S 53 _t
(entry)_S -12 _t
(.)_S 54 _t
(<def>)_S 53 _t
(is)_S 54 _t
(ignored)_S 3080 3854 _m
(\(send)_S 61 _t
(<obj>)_S 61 _t
(:<ivar>\))_S 5700 3854 _m
(\(When)_S 57 _t
(classes.lsp)_S 57 _t
(used\),)_S 57 _t
(set)_S 57 _t
(instance)_S 57 _t
(variable)_S 57 _t
(of)_S 5700 3638 _m
(object.)_S 3080 3422 _m
(\(<sym>-<element>)_S 61 _t
(<struct>\))_S 5700 3422 _m
(set)_S 61 _t
(the)_S 61 _t
(element)_S 61 _t
(of)_S 61 _t
(structure)_S 61 _t
(struct,)_S 61 _t
(type)_S 61 _t
(sym.)_S 3080 3206 _m
(\(<\256eldsym>)_S 61 _t
(<ar)_S -3 _t
(gs>\))_S 5700 3206 _m
(the)_S 60 _t
(function)_S 61 _t
(stored)_S 60 _t
(in)_S 60 _t
(property)_S 60 _t
(*setf*)_S 61 _t
(in)_S 60 _t
(symbol)_S 5700 2990 _m
(<\256eldsym>)_S 61 _t
(is)_S 61 _t
(applied)_S 61 _t
(to)_S 61 _t
(\(<ar)_S -3 _t
(gs>)_S 61 _t
(<expr>\))_S 2100 2774 _m
(<value>)_S 3080 2774 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 2100 2558 _m
(returns)_S 3080 2558 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4473 11867 _m
(SYMBOL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(25)_S 1500 11235 _m
(\(defsetf)_S 61 _t
(<sym>)_S 61 _t
(<fcn>\))_S 6428 11235 _m
(DEFINE)_S 61 _t
(A)_S 61 _t
(SETF)_S 61 _t
(FIELD)_S 61 _t
(SPECIFIER)_S 1500 11019 _m
(\(defsetf)_S 61 _t
(<sym>)_S 61 _t
(<far)_S -3 _t
(gs>)_S 61 _t
(\(<value>\))_S 61 _t
(<expr>...\))_S 2100 10803 _m
(De\256ned)_S 73 _t
(as)_S 73 _t
(macro)_S 72 _t
(in)_S 73 _t
(common.lsp.)_S 72 _t
(Convenient,)_S 73 _t
(Common)_S 73 _t
(Lisp)_S 72 _t
(compatible)_S 73 _t
(alternative)_S 73 _t
(to)_S 72 _t
(setting)_S 2100 10587 _m
(*setf*)_S 61 _t
(property)_S 61 _t
(directly)_S -12 _t
(,)_S 61 _t
(although)_S 61 _t
(second)_S 61 _t
(format)_S 61 _t
(is)_S 61 _t
(not)_S 61 _t
(as)_S 61 _t
(efficient.)_S 2100 10371 _m
(<sym>)_S 3300 10371 _m
(\256eld)_S 61 _t
(speci\256er)_S 61 _t
(symbol)_S 61 _t
(\(quoted\))_S 2100 10155 _m
(<fcn>)_S 3300 10155 _m
(function)_S 80 _t
(to)_S 79 _t
(use)_S 79 _t
(\(quoted)_S 80 _t
(symbol\))_S 79 _t
(which)_S 79 _t
(takes)_S 79 _t
(the)_S 80 _t
(same)_S 79 _t
(ar)_S -3 _t
(guments)_S 80 _t
(as)_S 79 _t
(the)_S 79 _t
(\256eld)_S 3300 9939 _m
(speci\256er)_S 60 _t
(plus)_S 61 _t
(an)_S 61 _t
(additional)_S 60 _t
(ar)_S -3 _t
(gument)_S 61 _t
(for)_S 61 _t
(the)_S 60 _t
(value.)_S 61 _t
(The)_S 61 _t
(value)_S 60 _t
(must)_S 61 _t
(be)_S 61 _t
(returned.)_S 2100 9723 _m
(<far)_S -3 _t
(gs>)_S 3300 9723 _m
(formal)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 61 _t
(\(lambda)_S 61 _t
(list\))_S 61 _t
(\(quoted\))_S 2100 9507 _m
(<value>)_S 3300 9507 _m
(symbol)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(value)_S 61 _t
(to)_S 61 _t
(store)_S 61 _t
(\(quoted\).)_S 2100 9291 _m
(<expr>)_S 3300 9291 _m
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 61 _t
(\(quoted\).)_S 61 _t
(The)_S 61 _t
(last)_S 61 _t
(expression)_S 61 _t
(must)_S 61 _t
(return)_S 61 _t
(<value>.)_S 2100 9075 _m
(returns)_S 3300 9075 _m
(the)_S 61 _t
(\256eld)_S 61 _t
(speci\256er)_S 61 _t
(symbol)_S 1500 8643 _m
(\(push)_S 122 _t
(<expr>)_S 61 _t
(<place>\))_S 7735 8643 _m
(CONS)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(FIELD)_S 2100 8427 _m
(De\256ned)_S 115 _t
(as)_S 115 _t
(macro)_S 115 _t
(in)_S 115 _t
(common.lsp.)_S 115 _t
(Only)_S 115 _t
(evaluates)_S 115 _t
(place)_S 115 _t
(form)_S 115 _t
(ar)_S -3 _t
(guments)_S 115 _t
(one)_S 115 _t
(time.)_S 115 _t
(It)_S 115 _t
(is)_S 2100 8211 _m
(recommended)_S 61 _t
(that)_S 61 _t
(*displace-macros*)_S 61 _t
(be)_S 61 _t
(non-NIL)_S 61 _t
(for)_S 61 _t
(best)_S 61 _t
(performance.)_S 2100 7995 _m
(<place>)_S 3300 7995 _m
(\256eld)_S 61 _t
(speci\256er)_S 61 _t
(being)_S 61 _t
(modi\256ed)_S 61 _t
(\(see)_S 61 _t
(setf\))_S 2100 7779 _m
(<expr>)_S 3300 7779 _m
(value)_S 61 _t
(to)_S 61 _t
(cons)_S 61 _t
(to)_S 61 _t
(\256eld)_S 2100 7563 _m
(returns)_S 3300 7563 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(\(CONS)_S 61 _t
(<expr>)_S 61 _t
(<place>\))_S 1500 7131 _m
(\(pushnew)_S 61 _t
(<expr>)_S 61 _t
(<place>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 7256 7131 _m
(CONS)_S 61 _t
(NEW)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(FIELD)_S 2100 6915 _m
(De\256ned)_S 115 _t
(as)_S 115 _t
(macro)_S 115 _t
(in)_S 115 _t
(common.lsp.)_S 115 _t
(Only)_S 115 _t
(evaluates)_S 115 _t
(place)_S 115 _t
(form)_S 115 _t
(ar)_S -3 _t
(guments)_S 115 _t
(one)_S 115 _t
(time.)_S 115 _t
(It)_S 115 _t
(is)_S 2100 6699 _m
(recommended)_S 61 _t
(that)_S 61 _t
(*displace-macros*)_S 61 _t
(be)_S 61 _t
(non-NIL)_S 61 _t
(for)_S 61 _t
(best)_S 61 _t
(performance.)_S 2100 6483 _m
(<place>)_S 3300 6483 _m
(\256eld)_S 61 _t
(speci\256er)_S 61 _t
(being)_S 61 _t
(modi\256ed)_S 61 _t
(\(see)_S 61 _t
(setf\))_S 2100 6267 _m
(<expr>)_S 3300 6267 _m
(value)_S 61 _t
(to)_S 61 _t
(cons)_S 61 _t
(to)_S 61 _t
(\256eld,)_S 61 _t
(if)_S 61 _t
(not)_S 61 _t
(already)_S 61 _t
(MEMBER)_S 61 _t
(of)_S 61 _t
(\256eld)_S 2100 6051 _m
(:test)_S 3300 6051 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 5835 _m
(:test-not)_S 3300 5835 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 5619 _m
(:key)_S 3300 5619 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(list)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 5403 _m
(returns)_S 3300 5403 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(\(CONS)_S 61 _t
(<expr>)_S 61 _t
(<place>\))_S 61 _t
(or)_S 61 _t
(<place>)_S 1500 4971 _m
(\(pop)_S 61 _t
(<place>\))_S 5980 4971 _m
(REMOVE)_S 61 _t
(FIRST)_S 61 _t
(ELEMENT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(FIELD)_S 2100 4755 _m
(De\256ned)_S 115 _t
(as)_S 115 _t
(macro)_S 115 _t
(in)_S 115 _t
(common.lsp.)_S 115 _t
(Only)_S 115 _t
(evaluates)_S 115 _t
(place)_S 115 _t
(form)_S 115 _t
(ar)_S -3 _t
(guments)_S 115 _t
(one)_S 115 _t
(time.)_S 115 _t
(It)_S 115 _t
(is)_S 2100 4539 _m
(recommended)_S 61 _t
(that)_S 61 _t
(*displace-macros*)_S 61 _t
(be)_S 61 _t
(non-NIL)_S 61 _t
(for)_S 61 _t
(best)_S 61 _t
(performance.)_S 2100 4323 _m
(<place>)_S 3300 4323 _m
(the)_S 61 _t
(\256eld)_S 61 _t
(being)_S 61 _t
(modi\256ed)_S 61 _t
(\(see)_S 61 _t
(setf\))_S 2100 4107 _m
(returns)_S 3300 4107 _m
(\(CAR)_S 61 _t
(<place>\),)_S 61 _t
(\256eld)_S 61 _t
(changed)_S 61 _t
(to)_S 61 _t
(\(CDR)_S 61 _t
(<place>\))_S 1500 3675 _m
(\(incf)_S 61 _t
(<place>)_S 61 _t
([<value>]\))_S 7457 3675 _m
(INCREMENT)_S 61 _t
(A)_S 61 _t
(FIELD)_S 1500 3459 _m
(\(decf)_S 61 _t
(<place>)_S 61 _t
([<value>]\))_S 7406 3459 _m
(DECREMENT)_S 61 _t
(A)_S 61 _t
(FIELD)_S 2100 3243 _m
(De\256ned)_S 115 _t
(as)_S 115 _t
(macro)_S 115 _t
(in)_S 115 _t
(common.lsp.)_S 115 _t
(Only)_S 115 _t
(evaluates)_S 115 _t
(place)_S 115 _t
(form)_S 115 _t
(ar)_S -3 _t
(guments)_S 115 _t
(one)_S 115 _t
(time.)_S 115 _t
(It)_S 115 _t
(is)_S 2100 3027 _m
(recommended)_S 61 _t
(that)_S 61 _t
(*displace-macros*)_S 61 _t
(be)_S 61 _t
(non-NIL)_S 61 _t
(for)_S 61 _t
(best)_S 61 _t
(performance.)_S 2100 2811 _m
(<place>)_S 3300 2811 _m
(\256eld)_S 61 _t
(speci\256er)_S 61 _t
(being)_S 61 _t
(modi\256ed)_S 61 _t
(\(see)_S 61 _t
(setf\))_S 2100 2595 _m
(<value>)_S 3300 2595 _m
(Numeric)_S 61 _t
(value)_S 61 _t
(\(default)_S 61 _t
(1\))_S 2100 2379 _m
(returns)_S 3300 2379 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(\(+)_S 61 _t
(<place>)_S 61 _t
(<value>\))_S 61 _t
(or)_S 61 _t
(\(-)_S 61 _t
(<place>)_S 61 _t
(<value>\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4473 11867 _m
(SYMBOL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(26)_S 1500 11235 _m
(\(defun)_S 61 _t
(<sym>)_S 61 _t
(<far)_S -3 _t
(gs>)_S 61 _t
(<expr>...\))_S 61 _t
7406 11235 _m
61 _t
(DEFINE)_S 61 _t
(A)_S 61 _t
(FUNCTION)_S 1500 11019 _m
(\(defmacro)_S 61 _t
(<sym>)_S 61 _t
(<far)_S -3 _t
(gs>)_S 61 _t
(<expr>...\))_S 61 _t
7661 11019 _m
61 _t
(DEFINE)_S 61 _t
(A)_S 61 _t
(MACRO)_S 2100 10803 _m
(fsubr)_S 2100 10587 _m
(<sym>)_S 3300 10587 _m
(symbol)_S 61 _t
(being)_S 61 _t
(de\256ned)_S 61 _t
(\(quoted\))_S 2100 10371 _m
(<far)_S -3 _t
(gs>)_S 3300 10371 _m
(formal)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 61 _t
(\(lambda)_S 61 _t
(list\))_S 61 _t
(\(quoted\))_S 2100 10155 _m
(<expr>)_S 3300 10155 _m
(expressions)_S 61 _t
(constituting)_S 61 _t
(the)_S 61 _t
(body)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 61 _t
(\(quoted\))_S 2100 9939 _m
(returns)_S 3300 9939 _m
(the)_S 61 _t
(function)_S 61 _t
(symbol)_S 1500 9507 _m
(\(gensym)_S 61 _t
([<tag>]\))_S 122 _t
7334 9507 _m
(GENERA)_S -20 _t
(TE)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 2100 9291 _m
(<tag>)_S 3300 9291 _m
(string)_S 61 _t
(or)_S 61 _t
(number)_S 2100 9075 _m
(returns)_S 3300 9075 _m
(the)_S 61 _t
(new)_S 61 _t
(symbol,)_S 61 _t
(uninterned)_S 1500 8643 _m
(\(intern)_S 61 _t
(<pname>\))_S 122 _t
6632 8643 _m
(MAKE)_S 61 _t
(AN)_S 61 _t
(INTERNED)_S 61 _t
(SYMBOL)_S 2100 8427 _m
(<pname>)_S 3300 8427 _m
(the)_S 61 _t
(symbol's)_S 61 _t
(print)_S 61 _t
(name)_S 61 _t
(string)_S 2100 8211 _m
(returns)_S 3300 8211 _m
(the)_S 61 _t
(new)_S 61 _t
(symbol)_S 1500 7779 _m
(\(make-symbol)_S 61 _t
(<pname>\))_S 122 _t
6367 7779 _m
(MAKE)_S 61 _t
(AN)_S 61 _t
(UNINTERNED)_S 61 _t
(SYMBOL)_S 2100 7563 _m
(<pname>)_S 3300 7563 _m
(the)_S 61 _t
(symbol's)_S 61 _t
(print)_S 61 _t
(name)_S 61 _t
(string)_S 2100 7347 _m
(returns)_S 3300 7347 _m
(the)_S 61 _t
(new)_S 61 _t
(symbol)_S 1500 6915 _m
(\(symbol-name)_S 61 _t
(<sym>\))_S 122 _t
6021 6915 _m
(GET)_S 61 _t
(THE)_S 61 _t
(PRINT)_S 61 _t
(NAME)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 2100 6699 _m
(<sym>)_S 3300 6699 _m
(the)_S 61 _t
(symbol)_S 2100 6483 _m
(returns)_S 3300 6483 _m
(the)_S 61 _t
(symbol's)_S 61 _t
(print)_S 61 _t
(name)_S 1500 6051 _m
(\(symbol-value)_S 61 _t
(<sym>\))_S 122 _t
6553 6051 _m
(GET)_S 61 _t
(THE)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 2100 5835 _m
(<sym>)_S 3300 5835 _m
(the)_S 61 _t
(symbol)_S 2100 5619 _m
(returns)_S 3300 5619 _m
(the)_S 61 _t
(symbol's)_S 61 _t
(value)_S 1500 5187 _m
(\(symbol-function)_S 61 _t
(<sym>\))_S 122 _t
5321 5187 _m
(GET)_S 61 _t
(THE)_S 61 _t
(FUNCTIONAL)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 2100 4971 _m
(<sym>)_S 3300 4971 _m
(the)_S 61 _t
(symbol)_S 2100 4755 _m
(returns)_S 3300 4755 _m
(the)_S 61 _t
(symbol's)_S 61 _t
(functional)_S 61 _t
(value)_S 1500 4323 _m
(\(symbol-plist)_S 61 _t
(<sym>\))_S 122 _t
5777 4323 _m
(GET)_S 61 _t
(THE)_S 61 _t
(PROPER)_S -11 _t
(TY)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 2100 4107 _m
(<sym>)_S 3300 4107 _m
(the)_S 61 _t
(symbol)_S 2100 3891 _m
(returns)_S 3300 3891 _m
(the)_S 61 _t
(symbol's)_S 61 _t
(property)_S 61 _t
(list)_S 1500 3459 _m
(\(hash)_S 61 _t
(<expr>)_S 61 _t
(<n>\))_S 122 _t
6815 3459 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(HASH)_S 61 _t
(INDEX)_S 2100 3243 _m
(<expr>)_S 3300 3243 _m
(the)_S 61 _t
(object)_S 61 _t
(to)_S 61 _t
(hash)_S 2100 3027 _m
(<n>)_S 3300 3027 _m
(the)_S 61 _t
(table)_S 61 _t
(size)_S 61 _t
(\(positive)_S 61 _t
(integer\))_S 2100 2811 _m
(returns)_S 3300 2811 _m
(the)_S 61 _t
(hash)_S 61 _t
(index)_S 61 _t
(\(integer)_S 61 _t
(0)_S 61 _t
(to)_S 61 _t
(n-1\))_S 1500 2379 _m
(\(makunbound)_S 61 _t
(<sym>\))_S 5810 2379 _m
(MAKE)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(BE)_S 61 _t
(UNBOUND)_S 2100 2163 _m
(Y)_S -18 _t
(ou)_S 61 _t
(cannot)_S 61 _t
(unbind)_S 61 _t
(constants.)_S 2100 1947 _m
(<sym>)_S 3300 1947 _m
(the)_S 61 _t
(symbol)_S 2100 1731 _m
(returns)_S 3300 1731 _m
(the)_S 61 _t
(symbol)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4473 11867 _m
(SYMBOL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(27)_S 1500 11235 _m
(\(fmakunbound)_S 61 _t
(<sym>\))_S 5481 11235 _m
(MAKE)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 61 _t
(FUNCTION)_S 61 _t
(BE)_S 61 _t
(UNBOUND)_S 2100 11019 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(init.lsp)_S 2100 10803 _m
(<sym>)_S 3300 10803 _m
(the)_S 61 _t
(symbol)_S 2100 10587 _m
(returns)_S 3300 10587 _m
(the)_S 61 _t
(symbol)_S 1500 10155 _m
(\(unintern)_S 61 _t
(<sym>\))_S 7345 10155 _m
(UNINTERN)_S 61 _t
(A)_S 61 _t
(SYMBOL)_S 2100 9939 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 9723 _m
(<sym>)_S 3300 9723 _m
(the)_S 61 _t
(symbol)_S 2100 9507 _m
(returns)_S 3300 9507 _m
(t)_S 61 _t
(if)_S 61 _t
(successful,)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(symbol)_S 61 _t
(not)_S 61 _t
(interned)_S 1500 9075 _m
(\(defconstant)_S 61 _t
(<sym>)_S 61 _t
(<val>\))_S 7431 9075 _m
(DEFINE)_S 61 _t
(A)_S 61 _t
(CONST)_S -15 _t
(ANT)_S 2100 8859 _m
(fsubr)_S -10 _t
(.)_S 2100 8643 _m
(<sym>)_S 3300 8643 _m
(the)_S 61 _t
(symbol)_S 2100 8427 _m
(<val>)_S 3300 8427 _m
(the)_S 61 _t
(value)_S 2100 8211 _m
(returns)_S 3300 8211 _m
(the)_S 61 _t
(value)_S 1500 7779 _m
(\(defparameter)_S 61 _t
(<sym>)_S 61 _t
(<val>\))_S 7301 7779 _m
(DEFINE)_S 61 _t
(A)_S 61 _t
(P)_S -17 _t
(ARAMETER)_S 2100 7563 _m
(fsubr)_S -10 _t
(.)_S 2100 7347 _m
(<sym>)_S 3300 7347 _m
(the)_S 61 _t
(symbol)_S 2100 7131 _m
(<val>)_S 3300 7131 _m
(the)_S 61 _t
(value)_S 2100 6915 _m
(returns)_S 3300 6915 _m
(the)_S 61 _t
(value)_S 1500 6483 _m
(\(defvar)_S 61 _t
(<sym>)_S 61 _t
([<val>]\))_S 7490 6483 _m
(DEFINE)_S 61 _t
(A)_S 61 _t
(V)_S -23 _t
(ARIABLE)_S 2100 6267 _m
(fsubr)_S -10 _t
(.)_S 61 _t
(V)_S -20 _t
(ariable)_S 61 _t
(only)_S 61 _t
(initialized)_S 61 _t
(if)_S 61 _t
(not)_S 61 _t
(previously)_S 61 _t
(de\256ned.)_S 2100 6051 _m
(<sym>)_S 3300 6051 _m
(the)_S 61 _t
(symbol)_S 2100 5835 _m
(<val>)_S 3300 5835 _m
(the)_S 61 _t
(initial)_S 61 _t
(value,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(absent.)_S 2100 5619 _m
(returns)_S 3300 5619 _m
(the)_S 61 _t
(current)_S 61 _t
(value)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4163 11867 _m
(PROPERTY)_S 61 _t
(LIST)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(28)_S 1500 10986 _m
/HelveticaR 660 _ff
(PROPER)_S -3 _t
(TY)_S 73 _t
(LIST)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(Note)_S 61 _t
(that)_S 61 _t
(property)_S 61 _t
(names)_S 61 _t
(are)_S 61 _t
(not)_S 61 _t
(limited)_S 61 _t
(to)_S 61 _t
(symbols.)_S 1500 10118 _m
(\(get)_S 61 _t
(<sym>)_S 61 _t
(<prop>\))_S 122 _t
6391 10118 _m
(GET)_S 61 _t
(THE)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(PROPER)_S -11 _t
(TY)_S 2100 9902 _m
(<sym>)_S 3300 9902 _m
(the)_S 61 _t
(symbol)_S 2100 9686 _m
(<prop>)_S 3300 9686 _m
(the)_S 61 _t
(property)_S 61 _t
(symbol)_S 2100 9470 _m
(returns)_S 3300 9470 _m
(the)_S 61 _t
(property)_S 61 _t
(value)_S 61 _t
(or)_S 61 _t
(NIL)_S 1500 9038 _m
(\(putprop)_S 61 _t
(<sym>)_S 61 _t
(<val>)_S 61 _t
(<prop>\))_S 122 _t
5577 9038 _m
(PUT)_S 61 _t
(A)_S 61 _t
(PROPER)_S -11 _t
(TY)_S 61 _t
(ONT)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(PROPER)_S -11 _t
(TY)_S 61 _t
(LIST)_S 2100 8822 _m
(<sym>)_S 3300 8822 _m
(the)_S 61 _t
(symbol)_S 2100 8606 _m
(<val>)_S 3300 8606 _m
(the)_S 61 _t
(property)_S 61 _t
(value)_S 2100 8390 _m
(<prop>)_S 3300 8390 _m
(the)_S 61 _t
(property)_S 61 _t
(symbol)_S 2100 8174 _m
(returns)_S 3300 8174 _m
(the)_S 61 _t
(property)_S 61 _t
(value)_S 1500 7742 _m
(\(remprop)_S 61 _t
(<sym>)_S 61 _t
(<prop>\))_S 122 _t
7427 7742 _m
(DELETE)_S 61 _t
(A)_S 61 _t
(PROPER)_S -11 _t
(TY)_S 2100 7526 _m
(<sym>)_S 3300 7526 _m
(the)_S 61 _t
(symbol)_S 2100 7310 _m
(<prop>)_S 3300 7310 _m
(the)_S 61 _t
(property)_S 61 _t
(symbol)_S 2100 7094 _m
(returns)_S 3300 7094 _m
(NIL)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4280 11867 _m
(HASH)_S 61 _t
(TABLE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(29)_S 1500 10986 _m
/HelveticaR 660 _ff
(HASH)_S 73 _t
(T)_S -15 _t
(ABLE)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(A)_S 86 _t
(hash)_S 86 _t
(table)_S 86 _t
(is)_S 86 _t
(implemented)_S 86 _t
(as)_S 86 _t
(an)_S 85 _t
(structure)_S 86 _t
(of)_S 86 _t
(type)_S 86 _t
(hash-table.)_S 86 _t
(No)_S 86 _t
(general)_S 86 _t
(accessing)_S 85 _t
(functions)_S 86 _t
(are)_S 1500 10334 _m
(provided,)_S 53 _t
(and)_S 53 _t
(hash)_S 53 _t
(tables)_S 52 _t
(print)_S 53 _t
(out)_S 53 _t
(using)_S 53 _t
(the)_S 53 _t
(angle)_S 52 _t
(bracket)_S 53 _t
(convention)_S 53 _t
(\(not)_S 53 _t
(readable)_S 53 _t
(by)_S 52 _t
(READ\).)_S 53 _t
(The)_S 53 _t
(\256rst)_S 1500 10118 _m
(element)_S 62 _t
(is)_S 62 _t
(the)_S 62 _t
(comparison)_S 62 _t
(function.)_S 63 _t
(The)_S 62 _t
(remaining)_S 62 _t
(elements)_S 62 _t
(contain)_S 62 _t
(association)_S 62 _t
(lists)_S 62 _t
(of)_S 62 _t
(keys)_S 63 _t
(\(that)_S 62 _t
(hash)_S 1500 9902 _m
(to)_S 61 _t
(the)_S 61 _t
(same)_S 61 _t
(value\))_S 61 _t
(and)_S 61 _t
(their)_S 61 _t
(data.)_S 1500 9470 _m
(\(make-hash-table)_S 61 _t
(&key)_S 61 _t
(:size)_S 61 _t
(:test\))_S 7370 9470 _m
(MAKE)_S 61 _t
(A)_S 61 _t
(HASH)_S 61 _t
(T)_S -15 _t
(ABLE)_S 2100 9254 _m
(:size)_S 3300 9254 _m
(size)_S 61 _t
(of)_S 61 _t
(hash)_S 61 _t
(table)_S 61 _t
(--)_S 61 _t
(should)_S 61 _t
(be)_S 61 _t
(a)_S 61 _t
(prime)_S 61 _t
(number)_S -10 _t
(.)_S 61 _t
(Default)_S 61 _t
(is)_S 61 _t
(31.)_S 2100 9038 _m
(:test)_S 3300 9038 _m
(comparison)_S 61 _t
(function.)_S 61 _t
(Defaults)_S 61 _t
(to)_S 61 _t
(eql.)_S 2100 8822 _m
(returns)_S 3300 8822 _m
(the)_S 61 _t
(hash)_S 61 _t
(table)_S 1500 8390 _m
(\(gethash)_S 61 _t
(<key>)_S 61 _t
(<table>)_S 61 _t
([<def>]\))_S 6677 8390 _m
(EXTRACT)_S 61 _t
(FROM)_S 61 _t
(HASH)_S 61 _t
(T)_S -15 _t
(ABLE)_S 2100 8174 _m
(See)_S 61 _t
(also)_S 61 _t
(gethash)_S 61 _t
(in)_S 61 _t
(SETF)_S -14 _t
(.)_S 2100 7958 _m
(<key>)_S 3300 7958 _m
(hash)_S 61 _t
(key)_S 2100 7742 _m
(<table>)_S 3300 7742 _m
(hash)_S 61 _t
(table)_S 2100 7526 _m
(<def>)_S 3300 7526 _m
(value)_S 61 _t
(to)_S 61 _t
(return)_S 61 _t
(on)_S 61 _t
(no)_S 61 _t
(match)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(NIL\))_S 2100 7310 _m
(returns)_S 3300 7310 _m
(associated)_S 61 _t
(data,)_S 61 _t
(if)_S 61 _t
(found,)_S 61 _t
(or)_S 61 _t
(<def>)_S 61 _t
(if)_S 61 _t
(not)_S 61 _t
(found.)_S 1500 6878 _m
(\(remhash)_S 61 _t
(<key>)_S 61 _t
(<table>\))_S 6830 6878 _m
(DELETE)_S 61 _t
(FROM)_S 61 _t
(HASH)_S 61 _t
(T)_S -15 _t
(ABLE)_S 2100 6662 _m
(<key>)_S 3300 6662 _m
(hash)_S 61 _t
(key)_S 2100 6446 _m
(<table>)_S 3300 6446 _m
(hash)_S 61 _t
(table)_S 2100 6230 _m
(returns)_S 3300 6230 _m
(T)_S 61 _t
(if)_S 61 _t
(deleted,)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(not)_S 61 _t
(in)_S 61 _t
(table)_S 1500 5798 _m
(\(clrhash)_S 61 _t
(<table>\))_S 7085 5798 _m
(CLEAR)_S 61 _t
(THE)_S 61 _t
(HASH)_S 61 _t
(T)_S -15 _t
(ABLE)_S 2100 5582 _m
(<table>)_S 3300 5582 _m
(hash)_S 61 _t
(table)_S 2100 5366 _m
(returns)_S 3300 5366 _m
(NIL,)_S 61 _t
(all)_S 61 _t
(entries)_S 61 _t
(cleared)_S 61 _t
(from)_S 61 _t
(table)_S 1500 4934 _m
(\(hash-table-count)_S 61 _t
(<table>\))_S 5955 4934 _m
(NUMBER)_S 61 _t
(OF)_S 61 _t
(ENTRIES)_S 61 _t
(IN)_S 61 _t
(HASH)_S 61 _t
(T)_S -15 _t
(ABLE)_S 2100 4718 _m
(<table>)_S 3300 4718 _m
(hash)_S 61 _t
(table)_S 2100 4502 _m
(returns)_S 3300 4502 _m
(integer)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(entries)_S 61 _t
(in)_S 61 _t
(table)_S 1500 4070 _m
(\(maphash)_S 61 _t
(<fcn>)_S 61 _t
(<table>\))_S 5904 4070 _m
(MAP)_S 61 _t
(FUNCTION)_S 61 _t
(OVER)_S 61 _t
(T)_S -15 _t
(ABLE)_S 61 _t
(ENTRIES)_S 2100 3854 _m
(<fcn>)_S 3300 3854 _m
(the)_S 58 _t
(function)_S 57 _t
(or)_S 57 _t
(function)_S 57 _t
(name,)_S 57 _t
(a)_S 57 _t
(function)_S 57 _t
(of)_S 57 _t
(two)_S 57 _t
(ar)_S -3 _t
(guments,)_S 57 _t
(the)_S 57 _t
(\256rst)_S 57 _t
(is)_S 57 _t
(bound)_S 57 _t
(to)_S 3300 3638 _m
(the)_S 61 _t
(key)_S -12 _t
(,)_S 61 _t
(and)_S 61 _t
(the)_S 61 _t
(second)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(each)_S 61 _t
(table)_S 61 _t
(entry)_S 61 _t
(in)_S 61 _t
(turn.)_S 2100 3422 _m
(<table>)_S 3300 3422 _m
(hash)_S 61 _t
(table)_S 2100 3206 _m
(returns)_S 3300 3206 _m
(NIL)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4534 11867 _m
(ARRAY)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(30)_S 1500 10986 _m
/HelveticaR 660 _ff
(ARRA)_S -15 _t
(Y)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(Note)_S 61 _t
(that)_S 61 _t
(sequence)_S 61 _t
(functions)_S 61 _t
(also)_S 61 _t
(work)_S 61 _t
(on)_S 61 _t
(arrays.)_S 1500 10118 _m
(\(aref)_S 61 _t
(<array>)_S 61 _t
(<n>\))_S 122 _t
5865 10118 _m
(GET)_S 61 _t
(THE)_S 61 _t
(NTH)_S 61 _t
(ELEMENT)_S 61 _t
(OF)_S 61 _t
(AN)_S 61 _t
(ARRA)_S -17 _t
(Y)_S 2100 9902 _m
(See)_S 61 _t
(setf)_S 61 _t
(for)_S 61 _t
(setting)_S 61 _t
(elements)_S 61 _t
(of)_S 61 _t
(arrays)_S 2100 9686 _m
(<array>)_S 3300 9686 _m
(the)_S 61 _t
(array)_S 61 _t
(\(or)_S 61 _t
(string\))_S 2100 9470 _m
(<n>)_S 3300 9470 _m
(the)_S 61 _t
(array)_S 61 _t
(index)_S 61 _t
(\(integer)_S -7 _t
(,)_S 61 _t
(zero)_S 61 _t
(based\))_S 2100 9254 _m
(returns)_S 3300 9254 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(array)_S 61 _t
(element)_S 1500 8822 _m
(\(make-array)_S 61 _t
(<size>\))_S 122 _t
7403 8822 _m
(MAKE)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(ARRA)_S -17 _t
(Y)_S 2100 8606 _m
(<size>)_S 3300 8606 _m
(the)_S 61 _t
(size)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(new)_S 61 _t
(array)_S 61 _t
(\(integer\))_S 2100 8390 _m
(returns)_S 3300 8390 _m
(the)_S 61 _t
(new)_S 61 _t
(array)_S 1500 7958 _m
(\(vector)_S 61 _t
(<expr>...\))_S 122 _t
6493 7958 _m
(MAKE)_S 61 _t
(AN)_S 61 _t
(INITIALIZED)_S 61 _t
(VECT)_S -3 _t
(OR)_S 2100 7742 _m
(<expr>)_S 3300 7742 _m
(the)_S 61 _t
(vector)_S 61 _t
(elements)_S 2100 7526 _m
(returns)_S 3300 7526 _m
(the)_S 61 _t
(new)_S 61 _t
(vector)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4377 11867 _m
(SEQUENCE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(31)_S 1500 10986 _m
/HelveticaR 660 _ff
(SEQUENCE)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(These)_S 61 _t
(functions)_S 61 _t
(work)_S 61 _t
(on)_S 61 _t
(sequences)_S 61 _t
(--)_S 61 _t
(lists,)_S 61 _t
(arrays,)_S 61 _t
(or)_S 61 _t
(strings.)_S 1500 10118 _m
(\(concatenate)_S 61 _t
(<type>)_S 61 _t
(<expr>)_S 61 _t
(...\))_S 6865 10118 _m
(CONCA)_S -20 _t
(TENA)_S -20 _t
(TE)_S 61 _t
(SEQUENCES)_S 2100 9902 _m
(If)_S 61 _t
(result)_S 61 _t
(type)_S 61 _t
(is)_S 61 _t
(string,)_S 61 _t
(sequences)_S 61 _t
(must)_S 61 _t
(contain)_S 61 _t
(only)_S 61 _t
(characters.)_S 2100 9686 _m
(<type>)_S 3300 9686 _m
(result)_S 61 _t
(type,)_S 61 _t
(one)_S 61 _t
(of)_S 61 _t
(CONS,)_S 61 _t
(LIST)_S -13 _t
(,)_S 61 _t
(ARRA)_S -17 _t
(Y)_S -23 _t
(,)_S 61 _t
(or)_S 61 _t
(STRING)_S 2100 9470 _m
(<expr>)_S 3300 9470 _m
(zero)_S 61 _t
(or)_S 61 _t
(more)_S 61 _t
(sequences)_S 61 _t
(to)_S 61 _t
(concatenate)_S 2100 9254 _m
(returns)_S 3300 9254 _m
(a)_S 61 _t
(sequence)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(the)_S 61 _t
(concatenation)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(ar)_S -3 _t
(guement)_S 61 _t
(sequences)_S 1500 8822 _m
(\(elt)_S 61 _t
(<expr>)_S 61 _t
(<n>\))_S 5665 8822 _m
(GET)_S 61 _t
(THE)_S 61 _t
(NTH)_S 61 _t
(ELEMENT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SEQUENCE)_S 2100 8606 _m
(<expr>)_S 3300 8606 _m
(the)_S 61 _t
(sequence)_S 2100 8390 _m
(<n>)_S 3300 8390 _m
(the)_S 61 _t
(index)_S 61 _t
(of)_S 61 _t
(element)_S 61 _t
(to)_S 61 _t
(return)_S 2100 8174 _m
(returns)_S 3300 8174 _m
(the)_S 61 _t
(element)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(index)_S 61 _t
(is)_S 61 _t
(in)_S 61 _t
(bounds,)_S 61 _t
(otherwise)_S 61 _t
(error)_S 1500 7742 _m
(\(map)_S 61 _t
(<type>)_S 61 _t
(<fcn>)_S 61 _t
(<expr>)_S 61 _t
(...\))_S 5268 7742 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SUCCESSIVE)_S 61 _t
(ELEMENTS)_S 2100 7526 _m
(<type>)_S 3300 7526 _m
(result)_S 61 _t
(type,)_S 61 _t
(one)_S 61 _t
(of)_S 61 _t
(CONS,)_S 61 _t
(LIST)_S -13 _t
(,)_S 61 _t
(ARRA)_S -17 _t
(Y)_S -23 _t
(,)_S 61 _t
(STRING,)_S 61 _t
(or)_S 61 _t
(NIL)_S 2100 7310 _m
(<fcn>)_S 3300 7310 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 7094 _m
(<expr>)_S 3300 7094 _m
(a)_S 61 _t
(sequence)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 6878 _m
(returns)_S 3300 6878 _m
(a)_S 61 _t
(new)_S 61 _t
(sequence)_S 61 _t
(of)_S 61 _t
(type)_S 61 _t
(<type>.)_S 1500 6446 _m
(\(every)_S 61 _t
(<fcn>)_S 61 _t
(<expr>)_S 61 _t
(...\))_S 5210 6446 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(ELEMENTS)_S 61 _t
(UNTIL)_S 61 _t
(F)_S -13 _t
(ALSE)_S 1500 6230 _m
(\(notevery)_S 61 _t
(<fcn>)_S 61 _t
(<expr>)_S 61 _t
(...\))_S 2100 6014 _m
(<fcn>)_S 3300 6014 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 5798 _m
(<expr>)_S 3300 5798 _m
(a)_S 61 _t
(sequence)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 5582 _m
(returns)_S 3300 5582 _m
(every)_S 61 _t
(returns)_S 61 _t
(last)_S 61 _t
(evaluated)_S 61 _t
(function)_S 61 _t
(result)_S 3300 5366 _m
(notevery)_S 61 _t
(returns)_S 61 _t
(T)_S 61 _t
(if)_S 61 _t
(there)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(NIL)_S 61 _t
(function)_S 61 _t
(result,)_S 61 _t
(else)_S 61 _t
(NIL)_S 1500 4934 _m
(\(some)_S 61 _t
(<fcn>)_S 61 _t
(<expr>)_S 61 _t
(...\))_S 5278 4934 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(ELEMENTS)_S 61 _t
(UNTIL)_S 61 _t
(TRUE)_S 1500 4718 _m
(\(notany)_S 61 _t
(<fcn>)_S 61 _t
(<expr>)_S 61 _t
(...\))_S 2100 4502 _m
(<fcn>)_S 3300 4502 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 4286 _m
(<expr>)_S 3300 4286 _m
(a)_S 61 _t
(sequence)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 4070 _m
(returns)_S 3300 4070 _m
(some)_S 61 _t
(returns)_S 61 _t
(\256rst)_S 61 _t
(non-NIL)_S 61 _t
(function)_S 61 _t
(result,)_S 61 _t
(or)_S 61 _t
(NIL)_S 3300 3854 _m
(notany)_S 61 _t
(returns)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(there)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(non-NIL)_S 61 _t
(function)_S 61 _t
(result,)_S 61 _t
(else)_S 61 _t
(T)_S 1500 3422 _m
(\(length)_S 61 _t
(<expr>\))_S 6154 3422 _m
(FIND)_S 61 _t
(THE)_S 61 _t
(LENGTH)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SEQUENCE)_S 2100 3206 _m
(<expr>)_S 3300 3206 _m
(the)_S 61 _t
(list,)_S 61 _t
(vector)_S 61 _t
(or)_S 61 _t
(string)_S 2100 2990 _m
(returns)_S 3300 2990 _m
(the)_S 61 _t
(length)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(list,)_S 61 _t
(vector)_S 61 _t
(or)_S 61 _t
(string)_S 1500 2558 _m
(\(reverse)_S 61 _t
(<expr>\))_S 122 _t
7273 2558 _m
(REVERSE)_S 61 _t
(A)_S 61 _t
(SEQUENCE)_S 1500 2342 _m
(\(nreverse)_S 61 _t
(<expr>\))_S 122 _t
5733 2342 _m
(DESTRUCTIVEL)_S -18 _t
(Y)_S 61 _t
(REVERSE)_S 61 _t
(A)_S 61 _t
(SEQUENCE)_S 2100 2126 _m
(<expr>)_S 3300 2126 _m
(the)_S 61 _t
(sequence)_S 61 _t
(to)_S 61 _t
(reverse)_S 2100 1910 _m
(returns)_S 3300 1910 _m
(a)_S 61 _t
(new)_S 61 _t
(sequence)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(reverse)_S 61 _t
(order)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4377 11867 _m
(SEQUENCE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(32)_S 1500 11235 _m
(\(subseq)_S 61 _t
(<seq>)_S 61 _t
(<start>)_S 61 _t
([<end>]\))_S 61 _t
6886 11235 _m
(EXTRACT)_S 61 _t
(A)_S 61 _t
(SUBSEQUENCE)_S 2100 11019 _m
(<seq>)_S 3300 11019 _m
(the)_S 61 _t
(sequence)_S 2100 10803 _m
(<start>)_S 3300 10803 _m
(the)_S 61 _t
(starting)_S 61 _t
(position)_S 61 _t
(\(zero)_S 61 _t
(origin\))_S 2100 10587 _m
(<end>)_S 3300 10587 _m
(the)_S 61 _t
(ending)_S 61 _t
(position)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(end\))_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(sequence)_S 2100 10371 _m
(returns)_S 3300 10371 _m
(the)_S 61 _t
(sequence)_S 61 _t
(between)_S 61 _t
(<start>)_S 61 _t
(and)_S 61 _t
(<end>)_S 1500 9939 _m
(\(search)_S 61 _t
(<seq1>)_S 61 _t
(<seq2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 7141 9723 _m
(SEARCH)_S 61 _t
(FOR)_S 61 _t
(SEQUENCE)_S 2100 9507 _m
(<seq1>)_S 3300 9507 _m
(the)_S 61 _t
(sequence)_S 61 _t
(to)_S 61 _t
(search)_S 61 _t
(for)_S 2100 9291 _m
(<seq2>)_S 3300 9291 _m
(the)_S 61 _t
(sequence)_S 61 _t
(to)_S 61 _t
(search)_S 61 _t
(in)_S 2100 9075 _m
(:test)_S 3300 9075 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 8859 _m
(:test-not)_S 3300 8859 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 8643 _m
(:key)_S 3300 8643 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 8427 _m
(:start1)_S 3300 8427 _m
(starting)_S 61 _t
(index)_S 61 _t
(in)_S 61 _t
(<seq1>)_S 2100 8211 _m
(:end1)_S 3300 8211 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1)_S 61 _t
(in)_S 61 _t
(<seq1>)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(sequence)_S 2100 7995 _m
(:start2)_S 3300 7995 _m
(starting)_S 61 _t
(index)_S 61 _t
(in)_S 61 _t
(<seq2>)_S 2100 7779 _m
(:end2)_S 3300 7779 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1)_S 61 _t
(in)_S 61 _t
(<seq2>)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(sequence)_S 2100 7563 _m
(returns)_S 3300 7563 _m
(position)_S 61 _t
(of)_S 61 _t
(\256rst)_S 61 _t
(match)_S 1500 7131 _m
(\(remove)_S 61 _t
(<expr>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 5715 6915 _m
(REMOVE)_S 61 _t
(ELEMENTS)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(SEQUENCE)_S 2100 6699 _m
(<expr>)_S 3300 6699 _m
(the)_S 61 _t
(element)_S 61 _t
(to)_S 61 _t
(remove)_S 2100 6483 _m
(<seq>)_S 3300 6483 _m
(the)_S 61 _t
(sequence)_S 2100 6267 _m
(:test)_S 3300 6267 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 6051 _m
(:test-not)_S 3300 6051 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 5835 _m
(:key)_S 3300 5835 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(sequence)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 5619 _m
(:start)_S 3300 5619 _m
(starting)_S 61 _t
(index)_S 2100 5403 _m
(:end)_S 3300 5403 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 5187 _m
(returns)_S 3300 5187 _m
(copy)_S 61 _t
(of)_S 61 _t
(sequence)_S 61 _t
(with)_S 61 _t
(matching)_S 61 _t
(expressions)_S 61 _t
(removed)_S 1500 4755 _m
(\(remove-if)_S 61 _t
(<test>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 5997 4539 _m
(REMOVE)_S 61 _t
(ELEMENTS)_S 61 _t
(THA)_S -20 _t
(T)_S 61 _t
(P)_S -17 _t
(ASS)_S 61 _t
(TEST)_S 1500 4323 _m
(\(remove-if-not)_S 61 _t
(<test>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 6024 4107 _m
(REMOVE)_S 61 _t
(ELEMENTS)_S 61 _t
(THA)_S -20 _t
(T)_S 61 _t
(F)_S -13 _t
(AIL)_S 61 _t
(TEST)_S 2100 3891 _m
(<test>)_S 3300 3891 _m
(the)_S 61 _t
(test)_S 61 _t
(predicate)_S 2100 3675 _m
(<seq>)_S 3300 3675 _m
(the)_S 61 _t
(sequence)_S 2100 3459 _m
(:key)_S 3300 3459 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 3243 _m
(:start)_S 3300 3243 _m
(starting)_S 61 _t
(index)_S 2100 3027 _m
(:end)_S 3300 3027 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 2811 _m
(returns)_S 3300 2811 _m
(copy)_S 61 _t
(of)_S 61 _t
(sequence)_S 61 _t
(with)_S 61 _t
(matching)_S 61 _t
(or)_S 61 _t
(non-matching)_S 61 _t
(elements)_S 61 _t
(removed)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4377 11867 _m
(SEQUENCE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(33)_S 1500 11235 _m
(\(count-if)_S 61 _t
(<test>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 6139 11019 _m
(COUNT)_S 61 _t
(ELEMENTS)_S 61 _t
(THA)_S -20 _t
(T)_S 61 _t
(P)_S -17 _t
(ASS)_S 61 _t
(TEST)_S 2100 10803 _m
(<test>)_S 3300 10803 _m
(the)_S 61 _t
(test)_S 61 _t
(predicate)_S 2100 10587 _m
(<seq>)_S 3300 10587 _m
(the)_S 61 _t
(sequence)_S 2100 10371 _m
(:key)_S 3300 10371 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 10155 _m
(:start)_S 3300 10155 _m
(starting)_S 61 _t
(index)_S 2100 9939 _m
(:end)_S 3300 9939 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 9723 _m
(returns)_S 3300 9723 _m
(count)_S 61 _t
(of)_S 61 _t
(matching)_S 61 _t
(elements)_S 1500 9291 _m
(\(\256nd-if)_S 61 _t
(<test>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 5671 9075 _m
(FIND)_S 61 _t
(FIRST)_S 61 _t
(ELEMENT)_S 61 _t
(THA)_S -20 _t
(T)_S 61 _t
(P)_S -17 _t
(ASSES)_S 61 _t
(TEST)_S 2100 8859 _m
(<test>)_S 3300 8859 _m
(the)_S 61 _t
(test)_S 61 _t
(predicate)_S 2100 8643 _m
(<seq>)_S 3300 8643 _m
(the)_S 61 _t
(list)_S 2100 8427 _m
(:key)_S 3300 8427 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 8211 _m
(:start)_S 3300 8211 _m
(starting)_S 61 _t
(index)_S 2100 7995 _m
(:end)_S 3300 7995 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 7779 _m
(returns)_S 3300 7779 _m
(\256rst)_S 61 _t
(element)_S 61 _t
(of)_S 61 _t
(sequence)_S 61 _t
(that)_S 61 _t
(passes)_S 61 _t
(test)_S 1500 7347 _m
(\(position-if)_S 61 _t
(<test>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 4479 7131 _m
(FIND)_S 61 _t
(POSITION)_S 61 _t
(OF)_S 61 _t
(FIRST)_S 61 _t
(ELEMENT)_S 61 _t
(THA)_S -20 _t
(T)_S 61 _t
(P)_S -17 _t
(ASSES)_S 61 _t
(TEST)_S 2100 6915 _m
(<test>)_S 3300 6915 _m
(the)_S 61 _t
(test)_S 61 _t
(predicate)_S 2100 6699 _m
(<seq>)_S 3300 6699 _m
(the)_S 61 _t
(list)_S 2100 6483 _m
(:key)_S 3300 6483 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 6267 _m
(:start)_S 3300 6267 _m
(starting)_S 61 _t
(index)_S 2100 6051 _m
(:end)_S 3300 6051 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 5835 _m
(returns)_S 3300 5835 _m
(position)_S 61 _t
(of)_S 61 _t
(\256rst)_S 61 _t
(element)_S 61 _t
(of)_S 61 _t
(sequence)_S 61 _t
(that)_S 61 _t
(passes)_S 61 _t
(test,)_S 61 _t
(or)_S 61 _t
(NIL.)_S 1500 5403 _m
(\(delete)_S 61 _t
(<expr>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:start)_S 61 _t
(:end\))_S 5797 5187 _m
(DELETE)_S 61 _t
(ELEMENTS)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(SEQUENCE)_S 2100 4971 _m
(<expr>)_S 3300 4971 _m
(the)_S 61 _t
(element)_S 61 _t
(to)_S 61 _t
(delete)_S 2100 4755 _m
(<seq>)_S 3300 4755 _m
(the)_S 61 _t
(sequence)_S 2100 4539 _m
(:test)_S 3300 4539 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 4323 _m
(:test-not)_S 3300 4323 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 4107 _m
(:key)_S 3300 4107 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(sequence)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 3891 _m
(:start)_S 3300 3891 _m
(starting)_S 61 _t
(index)_S 2100 3675 _m
(:end)_S 3300 3675 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 3459 _m
(returns)_S 3300 3459 _m
(the)_S 61 _t
(sequence)_S 61 _t
(with)_S 61 _t
(the)_S 61 _t
(matching)_S 61 _t
(expressions)_S 61 _t
(deleted)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4377 11867 _m
(SEQUENCE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(34)_S 1500 11235 _m
(\(delete-if)_S 61 _t
(<test>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 6078 11019 _m
(DELETE)_S 61 _t
(ELEMENTS)_S 61 _t
(THA)_S -20 _t
(T)_S 61 _t
(P)_S -17 _t
(ASS)_S 61 _t
(TEST)_S 1500 10803 _m
(\(delete-if-not)_S 61 _t
(<test>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 6105 10587 _m
(DELETE)_S 61 _t
(ELEMENTS)_S 61 _t
(THA)_S -20 _t
(T)_S 61 _t
(F)_S -13 _t
(AIL)_S 61 _t
(TEST)_S 2100 10371 _m
(<test>)_S 3300 10371 _m
(the)_S 61 _t
(test)_S 61 _t
(predicate)_S 2100 10155 _m
(<seq>)_S 3300 10155 _m
(the)_S 61 _t
(sequence)_S 2100 9939 _m
(:key)_S 3300 9939 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 9723 _m
(:start)_S 3300 9723 _m
(starting)_S 61 _t
(index)_S 2100 9507 _m
(:end)_S 3300 9507 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 9291 _m
(returns)_S 3300 9291 _m
(the)_S 61 _t
(sequence)_S 61 _t
(with)_S 61 _t
(matching)_S 61 _t
(or)_S 61 _t
(non-matching)_S 61 _t
(elements)_S 61 _t
(deleted)_S 1500 8859 _m
(\(reduce)_S 61 _t
(<fcn>)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:initial-value)_S 61 _t
(:start)_S 61 _t
(:end\))_S 5874 8643 _m
(REDUCE)_S 61 _t
(SEQUENCE)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SINGLE)_S 61 _t
(V)_S -23 _t
(ALUE)_S 2100 8427 _m
(<fcn>)_S 3300 8427 _m
(function)_S 46 _t
(\(of)_S 46 _t
(two)_S 47 _t
(ar)_S -3 _t
(guments\))_S 46 _t
(to)_S 46 _t
(apply)_S 46 _t
(to)_S 46 _t
(result)_S 47 _t
(of)_S 46 _t
(previous)_S 46 _t
(function)_S 47 _t
(application)_S 46 _t
(\(or)_S 3300 8211 _m
(\256rst)_S 61 _t
(element\))_S 61 _t
(and)_S 61 _t
(each)_S 61 _t
(member)_S 61 _t
(of)_S 61 _t
(sequence.)_S 2100 7995 _m
(<seq>)_S 3300 7995 _m
(the)_S 61 _t
(sequence)_S 2100 7779 _m
(:initial-value)_S 3300 7779 _m
(value)_S 67 _t
(to)_S 67 _t
(use)_S 67 _t
(as)_S 67 _t
(\256rst)_S 67 _t
(ar)_S -3 _t
(gument)_S 67 _t
(in)_S 67 _t
(\256rst)_S 67 _t
(function)_S 66 _t
(application)_S 67 _t
(rather)_S 67 _t
(than)_S 67 _t
(using)_S 67 _t
(the)_S 3300 7563 _m
(\256rst)_S 61 _t
(element)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(sequence.)_S 2100 7347 _m
(:start)_S 3300 7347 _m
(starting)_S 61 _t
(index)_S 2100 7131 _m
(:end)_S 3300 7131 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 6915 _m
(returns)_S 3300 6915 _m
(if)_S 86 _t
(sequence)_S 86 _t
(is)_S 86 _t
(empty)_S 86 _t
(and)_S 86 _t
(there)_S 86 _t
(is)_S 86 _t
(no)_S 86 _t
(initial)_S 86 _t
(value,)_S 86 _t
(returns)_S 85 _t
(result)_S 86 _t
(of)_S 86 _t
(applying)_S 3300 6699 _m
(function)_S 77 _t
(to)_S 77 _t
(zero)_S 78 _t
(ar)_S -3 _t
(guements.)_S 77 _t
(If)_S 77 _t
(there)_S 77 _t
(is)_S 78 _t
(a)_S 77 _t
(single)_S 77 _t
(element,)_S 77 _t
(returns)_S 78 _t
(the)_S 77 _t
(element.)_S 3300 6483 _m
(Otherwise)_S 61 _t
(returns)_S 61 _t
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(function)_S 61 _t
(application.)_S 1500 6051 _m
(\(remove-duplicates)_S 61 _t
(<seq>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 5766 5835 _m
(REMOVE)_S 61 _t
(DUPLICA)_S -20 _t
(TES)_S 61 _t
(FROM)_S 61 _t
(SEQUENCE)_S 2100 5619 _m
(<seq>)_S 3300 5619 _m
(the)_S 61 _t
(sequence)_S 2100 5403 _m
(:test)_S 3300 5403 _m
(comparison)_S 61 _t
(function)_S 61 _t
(\(default)_S 61 _t
(eql\))_S 2100 5187 _m
(:test-not)_S 3300 5187 _m
(comparison)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 4971 _m
(:key)_S 3300 4971 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 4755 _m
(:start)_S 3300 4755 _m
(starting)_S 61 _t
(index)_S 2100 4539 _m
(:end)_S 3300 4539 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 4323 _m
(returns)_S 3300 4323 _m
(copy)_S 61 _t
(of)_S 61 _t
(sequence)_S 61 _t
(with)_S 61 _t
(duplicates)_S 61 _t
(removed.)_S 1500 3891 _m
(\(\256ll)_S 61 _t
(<seq>)_S 61 _t
(<expr>)_S 61 _t
(&key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 6601 3891 _m
(REPLACE)_S 61 _t
(ITEMS)_S 61 _t
(IN)_S 61 _t
(SEQUENCE)_S 2100 3675 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 3459 _m
(<seq>)_S 3300 3459 _m
(the)_S 61 _t
(sequence)_S 2100 3243 _m
(<expr>)_S 3300 3243 _m
(new)_S 61 _t
(value)_S 61 _t
(to)_S 61 _t
(place)_S 61 _t
(in)_S 61 _t
(sequence)_S 2100 3027 _m
(:start)_S 3300 3027 _m
(starting)_S 61 _t
(index)_S 2100 2811 _m
(:end)_S 3300 2811 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(\(length)_S 61 _t
(<seq>\))_S 2100 2595 _m
(returns)_S 3300 2595 _m
(sequence)_S 61 _t
(with)_S 61 _t
(items)_S 61 _t
(replaced)_S 61 _t
(with)_S 61 _t
(new)_S 61 _t
(item)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4377 11867 _m
(SEQUENCE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(35)_S 1500 11235 _m
(\(replace)_S 61 _t
(<seq1>)_S 61 _t
(<seq2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 5002 11019 _m
(REPLACE)_S 61 _t
(ITEMS)_S 61 _t
(IN)_S 61 _t
(SEQUENCE)_S 61 _t
(FROM)_S 61 _t
(SEQUENCE)_S 2100 10803 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 10587 _m
(<seq1>)_S 3300 10587 _m
(the)_S 61 _t
(sequence)_S 61 _t
(to)_S 61 _t
(modify)_S 2100 10371 _m
(<seq2>)_S 3300 10371 _m
(sequence)_S 61 _t
(with)_S 61 _t
(new)_S 61 _t
(items)_S 2100 10155 _m
(:start1)_S 3300 10155 _m
(starting)_S 61 _t
(index)_S 61 _t
(in)_S 61 _t
(<seq1>)_S 2100 9939 _m
(:end1)_S 3300 9939 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1)_S 61 _t
(in)_S 61 _t
(<seq1>)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(sequence)_S 2100 9723 _m
(:start2)_S 3300 9723 _m
(starting)_S 61 _t
(index)_S 61 _t
(in)_S 61 _t
(<seq2>)_S 2100 9507 _m
(:end2)_S 3300 9507 _m
(index)_S 61 _t
(of)_S 61 _t
(end+1)_S 61 _t
(in)_S 61 _t
(<seq2>)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(sequence)_S 2100 9291 _m
(returns)_S 3300 9291 _m
(\256rst)_S 61 _t
(sequence)_S 61 _t
(with)_S 61 _t
(items)_S 61 _t
(replaced)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4662 11867 _m
(LIST)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(36)_S 1500 10986 _m
/HelveticaR 660 _ff
(LIST)_S 73 _t
(FUNCTIONS)_S 73 _t
/Times-RomanR 550 _ff
1500 10550 _m
(\(car)_S 61 _t
(<expr>\))_S 122 _t
6205 10550 _m
(RETURN)_S 61 _t
(THE)_S 61 _t
(CAR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(NODE)_S 2100 10334 _m
(<expr>)_S 3300 10334 _m
(the)_S 61 _t
(list)_S 61 _t
(node)_S 2100 10118 _m
(returns)_S 3300 10118 _m
(the)_S 61 _t
(car)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(node)_S 1500 9686 _m
(\(cdr)_S 61 _t
(<expr>\))_S 122 _t
6205 9686 _m
(RETURN)_S 61 _t
(THE)_S 61 _t
(CDR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(NODE)_S 2100 9470 _m
(<expr>)_S 3300 9470 _m
(the)_S 61 _t
(list)_S 61 _t
(node)_S 2100 9254 _m
(returns)_S 3300 9254 _m
(the)_S 61 _t
(cdr)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(node)_S 1500 8822 _m
(\(cxxr)_S 61 _t
(<expr>\))_S 122 _t
7008 8822 _m
(ALL)_S 61 _t
(CxxR)_S 61 _t
(COMBINA)_S -20 _t
(TIONS)_S 1500 8606 _m
(\(cxxxr)_S 61 _t
(<expr>\))_S 122 _t
6917 8606 _m
(ALL)_S 61 _t
(CxxxR)_S 61 _t
(COMBINA)_S -20 _t
(TIONS)_S 1500 8390 _m
(\(cxxxxr)_S 61 _t
(<expr>\))_S 122 _t
6825 8390 _m
(ALL)_S 61 _t
(CxxxxR)_S 61 _t
(COMBINA)_S -20 _t
(TIONS)_S 1500 7958 _m
(\(\256rst)_S 61 _t
(<expr>\))_S 183 _t
7324 7958 _m
(A)_S 61 _t
(SYNONYM)_S 61 _t
(FOR)_S 61 _t
(CAR)_S 1500 7742 _m
(\(second)_S 61 _t
(<expr>\))_S 122 _t
7192 7742 _m
(A)_S 61 _t
(SYNONYM)_S 61 _t
(FOR)_S 61 _t
(CADR)_S 1500 7526 _m
(\(third)_S 61 _t
(<expr>\))_S 183 _t
7060 7526 _m
(A)_S 61 _t
(SYNONYM)_S 61 _t
(FOR)_S 61 _t
(CADDR)_S 1500 7310 _m
(\(fourth)_S 61 _t
(<expr>\))_S 122 _t
6927 7310 _m
(A)_S 61 _t
(SYNONYM)_S 61 _t
(FOR)_S 61 _t
(CADDDR)_S 1500 7094 _m
(\(rest)_S 61 _t
(<expr>\))_S 244 _t
7324 7094 _m
(A)_S 61 _t
(SYNONYM)_S 61 _t
(FOR)_S 61 _t
(CDR)_S 1500 6662 _m
(\(cons)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 122 _t
6520 6662 _m
(CONSTRUCT)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(LIST)_S 61 _t
(NODE)_S 2100 6446 _m
(<expr1>)_S 3300 6446 _m
(the)_S 61 _t
(car)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(new)_S 61 _t
(list)_S 61 _t
(node)_S 2100 6230 _m
(<expr2>)_S 3300 6230 _m
(the)_S 61 _t
(cdr)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(new)_S 61 _t
(list)_S 61 _t
(node)_S 2100 6014 _m
(returns)_S 3300 6014 _m
(the)_S 61 _t
(new)_S 61 _t
(list)_S 61 _t
(node)_S 1500 5582 _m
(\(acons)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>)_S 61 _t
(<alist>\))_S 6543 5582 _m
(ADD)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(FRONT)_S 61 _t
(OF)_S 61 _t
(ASSOC)_S 61 _t
(LIST)_S 2100 5366 _m
(de\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 5150 _m
(<expr1>)_S 3300 5150 _m
(key)_S 61 _t
(of)_S 61 _t
(new)_S 61 _t
(association)_S 2100 4934 _m
(<expr2>)_S 3300 4934 _m
(value)_S 61 _t
(of)_S 61 _t
(new)_S 61 _t
(association)_S 2100 4718 _m
(<alist>)_S 3300 4718 _m
(association)_S 61 _t
(list)_S 2100 4502 _m
(returns)_S 3300 4502 _m
(new)_S 61 _t
(association)_S 61 _t
(list,)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(\(cons)_S 61 _t
(\(cons)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 61 _t
(<expr3>\)\))_S 1500 4070 _m
(\(list)_S 61 _t
(<expr>...\))_S 122 _t
6909 4070 _m
(CREA)_S -20 _t
(TE)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(V)_S -23 _t
(ALUES)_S 1500 3854 _m
(\(list*)_S 61 _t
(<expr>)_S 61 _t
(...)_S 61 _t
(<list>\))_S 2100 3638 _m
(<expr>)_S 3300 3638 _m
(expressions)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(combined)_S 61 _t
(into)_S 61 _t
(a)_S 61 _t
(list)_S 2100 3422 _m
(returns)_S 3300 3422 _m
(the)_S 61 _t
(new)_S 61 _t
(list)_S 1500 2990 _m
(\(append)_S 61 _t
(<expr>...\))_S 122 _t
8037 2990 _m
(APPEND)_S 61 _t
(LISTS)_S 2100 2774 _m
(<expr>)_S 3300 2774 _m
(lists)_S 61 _t
(whose)_S 61 _t
(elements)_S 61 _t
(are)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(appended)_S 2100 2558 _m
(returns)_S 3300 2558 _m
(the)_S 61 _t
(new)_S 61 _t
(list)_S 1500 2126 _m
(\(last)_S 61 _t
(<list>\))_S 122 _t
5675 2126 _m
(RETURN)_S 61 _t
(THE)_S 61 _t
(LAST)_S 61 _t
(LIST)_S 61 _t
(NODE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 2100 1910 _m
(<list>)_S 3300 1910 _m
(the)_S 61 _t
(list)_S 2100 1694 _m
(returns)_S 3300 1694 _m
(the)_S 61 _t
(last)_S 61 _t
(list)_S 61 _t
(node)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(list)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4662 11867 _m
(LIST)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(37)_S 1500 11235 _m
(\(butlast)_S 61 _t
(<list>)_S 61 _t
([<n>]\))_S 5614 11235 _m
(RETURN)_S 61 _t
(COPY)_S 61 _t
(OF)_S 61 _t
(ALL)_S 61 _t
(BUT)_S 61 _t
(LAST)_S 61 _t
(OF)_S 61 _t
(LIST)_S 2100 11019 _m
(<list>)_S 3300 11019 _m
(the)_S 61 _t
(list)_S 2100 10803 _m
(<n>)_S 3300 10803 _m
(count)_S 61 _t
(of)_S 61 _t
(elements)_S 61 _t
(to)_S 61 _t
(omit)_S 61 _t
(\(default)_S 61 _t
(1\))_S 2100 10587 _m
(returns)_S 3300 10587 _m
(copy)_S 61 _t
(of)_S 61 _t
(list)_S 61 _t
(with)_S 61 _t
(last)_S 61 _t
(element\(s\))_S 61 _t
(absent.)_S 1500 10155 _m
(\(nth)_S 61 _t
(<n>)_S 61 _t
(<list>\))_S 122 _t
5858 10155 _m
(RETURN)_S 61 _t
(THE)_S 61 _t
(NTH)_S 61 _t
(ELEMENT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 2100 9939 _m
(<n>)_S 3300 9939 _m
(the)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(element)_S 61 _t
(to)_S 61 _t
(return)_S 61 _t
(\(zero)_S 61 _t
(origin\))_S 2100 9723 _m
(<list>)_S 3300 9723 _m
(the)_S 61 _t
(list)_S 2100 9507 _m
(returns)_S 3300 9507 _m
(the)_S 61 _t
(nth)_S 61 _t
(element)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(isn't)_S 61 _t
(that)_S 61 _t
(long)_S 1500 9075 _m
(\(nthcdr)_S 61 _t
(<n>)_S 61 _t
(<list>\))_S 122 _t
6337 9075 _m
(RETURN)_S 61 _t
(THE)_S 61 _t
(NTH)_S 61 _t
(CDR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 2100 8859 _m
(<n>)_S 3300 8859 _m
(the)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(element)_S 61 _t
(to)_S 61 _t
(return)_S 61 _t
(\(zero)_S 61 _t
(origin\))_S 2100 8643 _m
(<list>)_S 3300 8643 _m
(the)_S 61 _t
(list)_S 2100 8427 _m
(returns)_S 3300 8427 _m
(the)_S 61 _t
(nth)_S 61 _t
(cdr)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(isn't)_S 61 _t
(that)_S 61 _t
(long)_S 1500 7995 _m
(\(member)_S 61 _t
(<expr>)_S 61 _t
(<list>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 6480 7779 _m
(FIND)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 61 _t
(IN)_S 61 _t
(A)_S 61 _t
(LIST)_S 2100 7563 _m
(<expr>)_S 3300 7563 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(\256nd)_S 2100 7347 _m
(<list>)_S 3300 7347 _m
(the)_S 61 _t
(list)_S 61 _t
(to)_S 61 _t
(search)_S 2100 7131 _m
(:test)_S 3300 7131 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 6915 _m
(:test-not)_S 3300 6915 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 6699 _m
(:key)_S 3300 6699 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(list)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 6483 _m
(returns)_S 3300 6483 _m
(the)_S 61 _t
(remainder)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(starting)_S 61 _t
(with)_S 61 _t
(the)_S 61 _t
(expression)_S 1500 6051 _m
(\(assoc)_S 61 _t
(<expr>)_S 61 _t
(<alist>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 6154 5835 _m
(FIND)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 61 _t
(IN)_S 61 _t
(AN)_S 61 _t
(A-LIST)_S 2100 5619 _m
(<expr>)_S 3300 5619 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(\256nd)_S 2100 5403 _m
(<alist>)_S 3300 5403 _m
(the)_S 61 _t
(association)_S 61 _t
(list)_S 2100 5187 _m
(:test)_S 3300 5187 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 4971 _m
(:test-not)_S 3300 4971 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 4755 _m
(:key)_S 3300 4755 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(list)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 4539 _m
(returns)_S 3300 4539 _m
(the)_S 61 _t
(alist)_S 61 _t
(entry)_S 61 _t
(or)_S 61 _t
(NIL)_S 1500 4107 _m
(\(mapc)_S 61 _t
(<fcn>)_S 61 _t
(<list1>)_S 61 _t
(<list>...\))_S 122 _t
5746 4107 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SUCCESSIVE)_S 61 _t
(CARS)_S 2100 3891 _m
(<fcn>)_S 3300 3891 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 3675 _m
(<listn>)_S 3300 3675 _m
(a)_S 61 _t
(list)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 3459 _m
(returns)_S 3300 3459 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(ar)_S -3 _t
(guments)_S 1500 3027 _m
(\(mapcar)_S 61 _t
(<fcn>)_S 61 _t
(<list1>)_S 61 _t
(<list>...\))_S 122 _t
5746 3027 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SUCCESSIVE)_S 61 _t
(CARS)_S 2100 2811 _m
(<fcn>)_S 3300 2811 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 2595 _m
(<listn>)_S 3300 2595 _m
(a)_S 61 _t
(list)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 2379 _m
(returns)_S 3300 2379 _m
(a)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(values)_S 61 _t
(returned)_S 1500 1947 _m
(\(mapl)_S 61 _t
(<fcn>)_S 61 _t
(<list1>)_S 61 _t
(<list>...\))_S 122 _t
5746 1947 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SUCCESSIVE)_S 61 _t
(CDRS)_S 2100 1731 _m
(<fcn>)_S 3300 1731 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 1515 _m
(<listn>)_S 3300 1515 _m
(a)_S 61 _t
(list)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 1299 _m
(returns)_S 3300 1299 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(ar)_S -3 _t
(guments)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4662 11867 _m
(LIST)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(38)_S 1500 11235 _m
(\(maplist)_S 61 _t
(<fcn>)_S 61 _t
(<list1>)_S 61 _t
(<list>...\))_S 122 _t
5746 11235 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SUCCESSIVE)_S 61 _t
(CDRS)_S 2100 11019 _m
(<fcn>)_S 3300 11019 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 10803 _m
(<listn>)_S 3300 10803 _m
(a)_S 61 _t
(list)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 10587 _m
(returns)_S 3300 10587 _m
(a)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(values)_S 61 _t
(returned)_S 1500 10155 _m
(\(mapcan)_S 61 _t
(<fcn>)_S 61 _t
(<list1>)_S 61 _t
(<list>...\))_S 5861 10155 _m
(APPL)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SUCCESSIVE)_S 61 _t
(CARS)_S 2100 9939 _m
(<fcn>)_S 3300 9939 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 9723 _m
(<listn>)_S 3300 9723 _m
(a)_S 61 _t
(list)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 9507 _m
(returns)_S 3300 9507 _m
(list)_S 61 _t
(of)_S 61 _t
(return)_S 61 _t
(values)_S 61 _t
(nconc'd)_S 61 _t
(together)_S 1500 9075 _m
(\(mapcon)_S 61 _t
(<fcn>)_S 61 _t
(<list1>)_S 61 _t
(<list>...\))_S 5861 9075 _m
(APPL)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SUCCESSIVE)_S 61 _t
(CDRS)_S 2100 8859 _m
(<fcn>)_S 3300 8859 _m
(the)_S 61 _t
(function)_S 61 _t
(or)_S 61 _t
(function)_S 61 _t
(name)_S 2100 8643 _m
(<listn>)_S 3300 8643 _m
(a)_S 61 _t
(list)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function)_S 2100 8427 _m
(returns)_S 3300 8427 _m
(list)_S 61 _t
(of)_S 61 _t
(return)_S 61 _t
(values)_S 61 _t
(nconc'd)_S 61 _t
(together)_S 1500 7995 _m
(\(subst)_S 61 _t
(<to>)_S 61 _t
(<from>)_S 61 _t
(<expr>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 1500 7779 _m
61 _t
6927 7779 _m
(SUBSTITUTE)_S 61 _t
(EXPRESSIONS)_S 2100 7563 _m
(Does)_S 61 _t
(minimum)_S 61 _t
(copying)_S 61 _t
(as)_S 61 _t
(required)_S 61 _t
(by)_S 61 _t
(Common)_S 61 _t
(Lisp)_S 2100 7347 _m
(<to>)_S 3300 7347 _m
(the)_S 61 _t
(new)_S 61 _t
(expression)_S 2100 7131 _m
(<from>)_S 3300 7131 _m
(the)_S 61 _t
(old)_S 61 _t
(expression)_S 2100 6915 _m
(<expr>)_S 3300 6915 _m
(the)_S 61 _t
(expression)_S 61 _t
(in)_S 61 _t
(which)_S 61 _t
(to)_S 61 _t
(do)_S 61 _t
(the)_S 61 _t
(substitutions)_S 2100 6699 _m
(:test)_S 3300 6699 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 6483 _m
(:test-not)_S 3300 6483 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 6267 _m
(:key)_S 3300 6267 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(expression)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 6051 _m
(returns)_S 3300 6051 _m
(the)_S 61 _t
(expression)_S 61 _t
(with)_S 61 _t
(substitutions)_S 1500 5619 _m
(\(sublis)_S 61 _t
(<alist>)_S 61 _t
(<expr>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 6693 5403 _m
(SUBSTITUTE)_S 61 _t
(WITH)_S 61 _t
(AN)_S 61 _t
(A-LIST)_S 2100 5187 _m
(Does)_S 61 _t
(minimum)_S 61 _t
(copying)_S 61 _t
(as)_S 61 _t
(required)_S 61 _t
(by)_S 61 _t
(Common)_S 61 _t
(Lisp)_S 2100 4971 _m
(<alist>)_S 3300 4971 _m
(the)_S 61 _t
(association)_S 61 _t
(list)_S 2100 4755 _m
(<expr>)_S 3300 4755 _m
(the)_S 61 _t
(expression)_S 61 _t
(in)_S 61 _t
(which)_S 61 _t
(to)_S 61 _t
(do)_S 61 _t
(the)_S 61 _t
(substitutions)_S 2100 4539 _m
(:test)_S 3300 4539 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 4323 _m
(:test-not)_S 3300 4323 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 4107 _m
(:key)_S 3300 4107 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(expression)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 3891 _m
(returns)_S 3300 3891 _m
(the)_S 61 _t
(expression)_S 61 _t
(with)_S 61 _t
(substitutions)_S 1500 3459 _m
(\(pairlis)_S 61 _t
(<keys>)_S 61 _t
(<values>)_S 61 _t
([<alist>]\))_S 6164 3459 _m
(BUILD)_S 61 _t
(AN)_S 61 _t
(A-LIST)_S 61 _t
(FROM)_S 61 _t
(TWO)_S 61 _t
(LISTS)_S 2100 3243 _m
(In)_S 61 _t
(\256le)_S 61 _t
(common.lsp)_S 2100 3027 _m
(<keys>)_S 3300 3027 _m
(list)_S 61 _t
(of)_S 61 _t
(association)_S 61 _t
(keys)_S 2100 2811 _m
(<values>)_S 3300 2811 _m
(list)_S 61 _t
(of)_S 61 _t
(association)_S 61 _t
(values,)_S 61 _t
(same)_S 61 _t
(length)_S 61 _t
(as)_S 61 _t
(keys)_S 2100 2595 _m
(<alist>)_S 3300 2595 _m
(existing)_S 61 _t
(association)_S 61 _t
(list,)_S 61 _t
(default)_S 61 _t
(NIL)_S 2100 2379 _m
(returns)_S 3300 2379 _m
(new)_S 61 _t
(association)_S 61 _t
(list)_S 1500 1947 _m
(\(copy-list)_S 61 _t
(<list>\))_S 6411 1947 _m
(COPY)_S 61 _t
(THE)_S 61 _t
(T)_S -3 _t
(OP)_S 61 _t
(LEVEL)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 2100 1731 _m
(In)_S 61 _t
(\256le)_S 61 _t
(common.lsp)_S 2100 1515 _m
(<list>)_S 3300 1515 _m
(the)_S 61 _t
(list)_S 2100 1299 _m
(returns)_S 3300 1299 _m
(a)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(\(new)_S 61 _t
(cons)_S 61 _t
(cells)_S 61 _t
(in)_S 61 _t
(top)_S 61 _t
(level\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4662 11867 _m
(LIST)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(39)_S 1500 11235 _m
(\(copy-alist)_S 61 _t
(<alist>\))_S 6774 11235 _m
(COPY)_S 61 _t
(AN)_S 61 _t
(ASSOCIA)_S -20 _t
(TION)_S 61 _t
(LIST)_S 2100 11019 _m
(In)_S 61 _t
(\256le)_S 61 _t
(common.lsp)_S 2100 10803 _m
(<alist>)_S 3300 10803 _m
(the)_S 61 _t
(association)_S 61 _t
(list)_S 2100 10587 _m
(returns)_S 3300 10587 _m
(a)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(association)_S 61 _t
(list)_S 61 _t
(\(keys)_S 61 _t
(and)_S 61 _t
(values)_S 61 _t
(not)_S 61 _t
(copies\))_S 1500 10155 _m
(\(copy-tree)_S 61 _t
(<tree>\))_S 8098 10155 _m
(COPY)_S 61 _t
(A)_S 61 _t
(TREE)_S 2100 9939 _m
(In)_S 61 _t
(\256le)_S 61 _t
(common.lsp)_S 2100 9723 _m
(<tree>)_S 3300 9723 _m
(a)_S 61 _t
(tree)_S 61 _t
(structure)_S 61 _t
(of)_S 61 _t
(cons)_S 61 _t
(cells)_S 2100 9507 _m
(returns)_S 3300 9507 _m
(a)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(tree)_S 61 _t
(structure)_S 1500 9075 _m
(\(intersection)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 7884 9075 _m
(SET)_S 61 _t
(FUNCTIONS)_S 1500 8859 _m
(\(union)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 1500 8643 _m
(\(set-difference)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 1500 8427 _m
(\(set-exclusive-or)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 1500 8211 _m
(\(nintersection)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 1500 7995 _m
(\(nunion)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 1500 7779 _m
(\(nset-difference)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 1500 7563 _m
(\(nset-exclusive-or)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 2100 7347 _m
(s)_S 1 _t
(e)_S 1 _t
(t)_S 1 _t
(-)_S 1 _t
(e)_S 1 _t
(x)_S 1 _t
(c)_S 1 _t
(l)_S 1 _t
(u)_S 1 _t
(s)_S 1 _t
(i)_S 1 _t
(v)_S 1 _t
(e)_S 1 _t
(-)_S 1 _t
(o)_S 1 _t
(r)_S 123 _t
(a)_S 1 _t
(n)_S 1 _t
(d)_S 124 _t
(n)_S 1 _t
(s)_S 1 _t
(e)_S 1 _t
(t)_S 1 _t
(-)_S 1 _t
(e)_S 1 _t
(x)_S 1 _t
(c)_S 1 _t
(l)_S 1 _t
(u)_S 1 _t
(s)_S 1 _t
(i)_S 1 _t
(v)_S 1 _t
(e)_S 1 _t
(-)_S 1 _t
(o)_S 1 _t
(r)_S 124 _t
(d)_S 1 _t
(e)_S 1 _t
(\256)_S 1 _t
(n)_S 1 _t
(e)_S 1 _t
(d)_S 123 _t
(i)_S 1 _t
(n)_S 124 _t
(c)_S 1 _t
(o)_S 1 _t
(m)_S 1 _t
(m)_S 1 _t
(o)_S 1 _t
(n)_S 1 _t
(.)_S 1 _t
(l)_S 1 _t
(s)_S 1 _t
(p)_S 1 _t
(.)_S 123 _t
(n)_S 1 _t
(u)_S 1 _t
(n)_S 1 _t
(i)_S 1 _t
(o)_S 1 _t
(n)_S 1 _t
(,)_S 124 _t
(n)_S 1 _t
(i)_S 1 _t
(n)_S 1 _t
(t)_S 1 _t
(e)_S 1 _t
(r)_S 1 _t
(s)_S 1 _t
(e)_S 1 _t
(c)_S 1 _t
(t)_S 1 _t
(i)_S 1 _t
(o)_S 1 _t
(n)_S 1 _t
(,)_S 124 _t
(a)_S 1 _t
(n)_S 1 _t
(d)_S 2100 7131 _m
(nset-difference)_S 61 _t
(are)_S 61 _t
(aliased)_S 61 _t
(to)_S 61 _t
(their)_S 61 _t
(non-destructive)_S 61 _t
(counterparts)_S 61 _t
(in)_S 61 _t
(common.lsp.)_S 2100 6915 _m
(<list1>)_S 3300 6915 _m
(\256rst)_S 61 _t
(list)_S 2100 6699 _m
(<list2>)_S 3300 6699 _m
(second)_S 61 _t
(list)_S 2100 6483 _m
(:test)_S 3300 6483 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 6267 _m
(:test-not)_S 3300 6267 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 6051 _m
(:key)_S 3300 6051 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 5835 _m
(returns)_S 3300 5835 _m
(intersection:)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(all)_S 61 _t
(elements)_S 61 _t
(in)_S 61 _t
(both)_S 61 _t
(lists)_S 3300 5619 _m
(union:)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(all)_S 61 _t
(elements)_S 61 _t
(in)_S 61 _t
(either)_S 61 _t
(list)_S 3300 5403 _m
(set-diference:)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(all)_S 61 _t
(elements)_S 61 _t
(in)_S 61 _t
(\256rst)_S 61 _t
(list)_S 61 _t
(but)_S 61 _t
(not)_S 61 _t
(in)_S 61 _t
(second)_S 61 _t
(list)_S 3300 5187 _m
(set-exclusive-or:)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(all)_S 61 _t
(elements)_S 61 _t
(in)_S 61 _t
(only)_S 61 _t
(one)_S 61 _t
(list)_S 3300 4971 _m
("n")_S 61 _t
(versions)_S 61 _t
(are)_S 61 _t
(potentially)_S 61 _t
(destructive.)_S 1500 4539 _m
(\(adjoin)_S 61 _t
(<expr>)_S 61 _t
(<list>)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 7389 4539 _m
(ADD)_S 61 _t
(UNIQUE)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(LIST)_S 2100 4323 _m
(<expr>)_S 3300 4323 _m
(new)_S 61 _t
(element)_S 61 _t
(to)_S 61 _t
(add)_S 2100 4107 _m
(<list>)_S 3300 4107 _m
(the)_S 61 _t
(list)_S 2100 3891 _m
(:test)_S 3300 3891 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 3675 _m
(:test-not)_S 3300 3675 _m
(the)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(<sense)_S 61 _t
(inverted\))_S 2100 3459 _m
(:key)_S 3300 3459 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 3243 _m
(returns)_S 3300 3243 _m
(if)_S 61 _t
(element)_S 61 _t
(not)_S 61 _t
(in)_S 61 _t
(list)_S 61 _t
(then)_S 61 _t
(\(cons)_S 61 _t
(<expr>)_S 61 _t
(<list>\),)_S 61 _t
(else)_S 61 _t
(<list>.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4005 11867 _m
(DESTRUCTIVE)_S 61 _t
(LIST)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(40)_S 1500 10986 _m
/HelveticaR 660 _ff
(DESTRUCTIVE)_S 73 _t
(LIST)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(See)_S 60 _t
(also)_S 60 _t
(nreverse,)_S 60 _t
(delete,)_S 61 _t
(delete-if,)_S 60 _t
(delete-if-not,)_S 60 _t
(\256ll,)_S 60 _t
(and)_S 61 _t
(replace)_S 60 _t
(under)_S 60 _t
(SEQUENCE)_S 60 _t
(FUNCTIONS,)_S 61 _t
(setf)_S 1500 10334 _m
(under)_S 72 _t
(SYMBOL)_S 71 _t
(FUNCTIONS,)_S 71 _t
(and)_S 71 _t
(nintersection,)_S 71 _t
(nunion,)_S 72 _t
(nset-difference,)_S 71 _t
(and)_S 71 _t
(nset-exclusive-or)_S 71 _t
(under)_S 1500 10118 _m
(LIST)_S 61 _t
(FUNCTIONS.)_S 1500 9686 _m
(\(rplaca)_S 61 _t
(<list>)_S 61 _t
(<expr>\))_S 122 _t
6123 9686 _m
(REPLACE)_S 61 _t
(THE)_S 61 _t
(CAR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(NODE)_S 2100 9470 _m
(<list>)_S 3300 9470 _m
(the)_S 61 _t
(list)_S 61 _t
(node)_S 2100 9254 _m
(<expr>)_S 3300 9254 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 61 _t
(for)_S 61 _t
(the)_S 61 _t
(car)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(node)_S 2100 9038 _m
(returns)_S 3300 9038 _m
(the)_S 61 _t
(list)_S 61 _t
(node)_S 61 _t
(after)_S 61 _t
(updating)_S 61 _t
(the)_S 61 _t
(car)_S 1500 8606 _m
(\(rplacd)_S 61 _t
(<list>)_S 61 _t
(<expr>\))_S 122 _t
6123 8606 _m
(REPLACE)_S 61 _t
(THE)_S 61 _t
(CDR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(NODE)_S 2100 8390 _m
(<list>)_S 3300 8390 _m
(the)_S 61 _t
(list)_S 61 _t
(node)_S 2100 8174 _m
(<expr>)_S 3300 8174 _m
(the)_S 61 _t
(new)_S 61 _t
(value)_S 61 _t
(for)_S 61 _t
(the)_S 61 _t
(cdr)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(node)_S 2100 7958 _m
(returns)_S 3300 7958 _m
(the)_S 61 _t
(list)_S 61 _t
(node)_S 61 _t
(after)_S 61 _t
(updating)_S 61 _t
(the)_S 61 _t
(cdr)_S 1500 7526 _m
(\(nconc)_S 61 _t
(<list>...\))_S 122 _t
5896 7526 _m
(DESTRUCTIVEL)_S -18 _t
(Y)_S 61 _t
(CONCA)_S -20 _t
(TENA)_S -20 _t
(TE)_S 61 _t
(LISTS)_S 2100 7310 _m
(<list>)_S 3300 7310 _m
(lists)_S 61 _t
(to)_S 61 _t
(concatenate)_S 2100 7094 _m
(returns)_S 3300 7094 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(concatenating)_S 61 _t
(the)_S 61 _t
(lists)_S 1500 6662 _m
(\(sort)_S 61 _t
(<list>)_S 61 _t
(<test>)_S 61 _t
(&key)_S 61 _t
(:key\))_S 122 _t
8201 6662 _m
(SOR)_S -11 _t
(T)_S 61 _t
(A)_S 61 _t
(LIST)_S 2100 6446 _m
(<list>)_S 3300 6446 _m
(the)_S 61 _t
(list)_S 61 _t
(to)_S 61 _t
(sort)_S 2100 6230 _m
(<test>)_S 3300 6230 _m
(the)_S 61 _t
(comparison)_S 61 _t
(function)_S 2100 6014 _m
(:key)_S 3300 6014 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(comparison)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 5798 _m
(returns)_S 3300 5798 _m
(the)_S 61 _t
(sorted)_S 61 _t
(list)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4290 11867 _m
(ARITHMETIC)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(41)_S 1500 10986 _m
/HelveticaR 660 _ff
(ARITHMETIC)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(W)_S -15 _t
(arning:)_S 86 _t
(integer)_S 86 _t
(and)_S 87 _t
(ratio)_S 86 _t
(calculations)_S 86 _t
(that)_S 86 _t
(over\257ow)_S 86 _t
(give)_S 86 _t
(erroneous)_S 86 _t
(results.)_S 86 _t
(On)_S 86 _t
(systems)_S 86 _t
(with)_S 86 _t
(IEEE)_S 1500 10334 _m
(\257oating)_S 61 _t
(point,)_S 61 _t
(the)_S 61 _t
(values)_S 61 _t
(+INF)_S 61 _t
(and)_S 61 _t
(-INF)_S 61 _t
(result)_S 61 _t
(from)_S 61 _t
(over\257owing)_S 61 _t
(\257oating)_S 61 _t
(point)_S 61 _t
(calculations.)_S 1500 9902 _m
(The)_S 59 _t
(math)_S 59 _t
(extension)_S 59 _t
(option)_S 59 _t
(adds)_S 60 _t
(complex)_S 59 _t
(numbers,)_S 59 _t
(ratios,)_S 59 _t
(new)_S 59 _t
(functions,)_S 59 _t
(and)_S 59 _t
(additional)_S 59 _t
(functionality)_S 59 _t
(to)_S 1500 9686 _m
(some)_S 62 _t
(existing)_S 62 _t
(functions.)_S 62 _t
(Because)_S 62 _t
(of)_S 62 _t
(the)_S 62 _t
(size)_S 62 _t
(of)_S 62 _t
(the)_S 62 _t
(extension,)_S 62 _t
(and)_S 62 _t
(the)_S 62 _t
(performance)_S 62 _t
(loss)_S 62 _t
(it)_S 62 _t
(entails,)_S 62 _t
(some)_S 1500 9470 _m
(users)_S 64 _t
(may)_S 63 _t
(not)_S 64 _t
(wish)_S 64 _t
(to)_S 63 _t
(include)_S 64 _t
(it.)_S 64 _t
(This)_S 63 _t
(section)_S 64 _t
(documents)_S 64 _t
(the)_S 64 _t
(math)_S 63 _t
(functions)_S 64 _t
(both)_S 64 _t
(with)_S 63 _t
(and)_S 64 _t
(without)_S 64 _t
(the)_S 1500 9254 _m
(extension.)_S 1500 8822 _m
(Functions)_S 75 _t
(that)_S 76 _t
(are)_S 76 _t
(described)_S 76 _t
(as)_S 75 _t
(having)_S 76 _t
(\257oating)_S 76 _t
(point)_S 75 _t
(ar)_S -3 _t
(guments)_S 76 _t
(\(SIN)_S 76 _t
(COS)_S 75 _t
(T)_S -15 _t
(AN)_S 76 _t
(ASIN)_S 76 _t
(ACOS)_S 76 _t
(A)_S -20 _t
(T)_S -15 _t
(AN)_S 1500 8606 _m
(EXPT)_S 60 _t
(EXP)_S 60 _t
(SQR)_S -11 _t
(T\))_S 59 _t
(will)_S 60 _t
(take)_S 60 _t
(ar)_S -3 _t
(guments)_S 59 _t
(of)_S 60 _t
(any)_S 60 _t
(type)_S 60 _t
(\(real)_S 60 _t
(or)_S 59 _t
(complex\))_S 60 _t
(when)_S 60 _t
(the)_S 60 _t
(math)_S 59 _t
(extension)_S 60 _t
(is)_S 60 _t
(used.)_S 1500 8390 _m
(In)_S 46 _t
(the)_S 47 _t
(descriptions,)_S 46 _t
("rational)_S 46 _t
(number")_S 46 _t
(means)_S 47 _t
(integer)_S 46 _t
(or)_S 46 _t
(ratio)_S 93 _t
(only)_S -12 _t
(,)_S 47 _t
(and)_S 46 _t
("real)_S 46 _t
(number")_S 46 _t
(means)_S 47 _t
(\257oating)_S 46 _t
(point)_S 1500 8174 _m
(number)_S 61 _t
(or)_S 61 _t
(rational)_S 61 _t
(only)_S -12 _t
(.)_S 1500 7742 _m
(Any)_S 64 _t
(rational)_S 64 _t
(results)_S 63 _t
(are)_S 64 _t
(reduced)_S 64 _t
(to)_S 64 _t
(canonical)_S 64 _t
(form)_S 63 _t
(\(the)_S 64 _t
(gcd)_S 64 _t
(of)_S 64 _t
(the)_S 64 _t
(numerator)_S 63 _t
(and)_S 64 _t
(denominator)_S 64 _t
(is)_S 64 _t
(1,)_S 64 _t
(the)_S 1500 7526 _m
(denominator)_S 78 _t
(is)_S 79 _t
(positive\);)_S 79 _t
(integral)_S 78 _t
(results)_S 79 _t
(are)_S 79 _t
(reduced)_S 78 _t
(to)_S 79 _t
(integers.)_S 79 _t
(Integer)_S 78 _t
(complex)_S 79 _t
(numbers)_S 79 _t
(with)_S 79 _t
(zero)_S 1500 7310 _m
(imaginary)_S 61 _t
(parts)_S 61 _t
(are)_S 61 _t
(reduced)_S 61 _t
(to)_S 61 _t
(integers.)_S 1500 6878 _m
(\(truncate)_S 61 _t
(<expr>)_S 61 _t
(<denom>\))_S 122 _t
6858 6878 _m
(TRUNCA)_S -20 _t
(TES)_S 61 _t
(T)_S -3 _t
(OW)_S -20 _t
(ARD)_S 61 _t
(ZERO)_S 1500 6662 _m
(\(round)_S 61 _t
(<expr>)_S 61 _t
(<denom>\))_S 5973 6662 _m
(ROUNDS)_S 61 _t
(T)_S -3 _t
(OW)_S -20 _t
(ARD)_S 61 _t
(NEAREST)_S 61 _t
(INTEGER)_S 1500 6446 _m
(\(\257oor)_S 61 _t
(<expr>)_S 61 _t
(<denom>\))_S 5575 6446 _m
(TRUNCA)_S -20 _t
(TES)_S 61 _t
(T)_S -3 _t
(OW)_S -20 _t
(ARD)_S 61 _t
(NEGA)_S -20 _t
(TIVE)_S 61 _t
(INFINITY)_S 1500 6230 _m
(\(ceiling)_S 61 _t
(<expr>)_S 61 _t
(<denom>\))_S 6543 6230 _m
(TRUNCA)_S -20 _t
(TES)_S 61 _t
(T)_S -3 _t
(OW)_S -20 _t
(ARD)_S 61 _t
(INFINITY)_S 2100 6014 _m
(Round,)_S 66 _t
(\257oor)_S -7 _t
(,)_S 66 _t
(and)_S 67 _t
(ceiling,)_S 66 _t
(and)_S 66 _t
(the)_S 66 _t
(second)_S 66 _t
(ar)_S -3 _t
(gument)_S 67 _t
(of)_S 66 _t
(truncate,)_S 66 _t
(are)_S 66 _t
(part)_S 67 _t
(of)_S 66 _t
(the)_S 66 _t
(math)_S 66 _t
(extension.)_S 2100 5798 _m
(Results)_S 54 _t
(too)_S 55 _t
(big)_S 54 _t
(to)_S 55 _t
(be)_S 55 _t
(represented)_S 54 _t
(as)_S 55 _t
(integers)_S 54 _t
(are)_S 55 _t
(returned)_S 54 _t
(as)_S 55 _t
(\257oating)_S 54 _t
(point)_S 55 _t
(numbers)_S 54 _t
(as)_S 55 _t
(part)_S 54 _t
(of)_S 55 _t
(the)_S 2100 5582 _m
(math)_S 61 _t
(extension.)_S 61 _t
(Integers)_S 61 _t
(are)_S 61 _t
(returned)_S 61 _t
(as)_S 61 _t
(is.)_S 2100 5366 _m
(<expr>)_S 3300 5366 _m
(the)_S 61 _t
(real)_S 61 _t
(number)_S 2100 5150 _m
(<denom>)_S 3300 5150 _m
(real)_S 61 _t
(number)_S 61 _t
(to)_S 61 _t
(divide)_S 61 _t
(<expr>)_S 61 _t
(by)_S 61 _t
(before)_S 61 _t
(converting)_S 2100 4934 _m
(returns)_S 3300 4934 _m
(the)_S 61 _t
(integer)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(converting)_S 61 _t
(the)_S 61 _t
(number)_S 1500 4502 _m
(\(\257oat)_S 61 _t
(<expr>\))_S 122 _t
4273 4502 _m
(CONVER)_S -11 _t
(TS)_S 61 _t
(AN)_S 61 _t
(INTEGER)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(FLOA)_S -20 _t
(TING)_S 61 _t
(POINT)_S 61 _t
(NUMBER)_S 2100 4286 _m
(<expr>)_S 3300 4286 _m
(the)_S 61 _t
(real)_S 61 _t
(number)_S 2100 4070 _m
(returns)_S 3300 4070 _m
(the)_S 61 _t
(number)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(\257oating)_S 61 _t
(point)_S 61 _t
(number)_S 1500 3638 _m
(\(+)_S 61 _t
([<expr>...]\))_S 122 _t
7019 3638 _m
(ADD)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(NUMBERS)_S 2100 3422 _m
(W)_S -7 _t
(ith)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(returns)_S 61 _t
(addition)_S 61 _t
(identity)_S -12 _t
(,)_S 61 _t
(0)_S 61 _t
(\(integer\))_S 2100 3206 _m
(<expr>)_S 3300 3206 _m
(the)_S 61 _t
(numbers)_S 2100 2990 _m
(returns)_S 3300 2990 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(addition)_S 1500 2558 _m
(\(-)_S 61 _t
(<expr>...\))_S 122 _t
3617 2558 _m
(SUBTRACT)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(NUMBERS)_S 61 _t
(OR)_S 61 _t
(NEGA)_S -20 _t
(TE)_S 61 _t
(A)_S 61 _t
(SINGLE)_S 61 _t
(NUMBER)_S 2100 2342 _m
(<expr>)_S 3300 2342 _m
(the)_S 61 _t
(numbers)_S 2100 2126 _m
(returns)_S 3300 2126 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(subtraction)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4290 11867 _m
(ARITHMETIC)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(42)_S 1500 11235 _m
(\(*)_S 61 _t
([<expr>...]\))_S 122 _t
6524 11235 _m
(MUL)_S -17 _t
(TIPL)_S -18 _t
(Y)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(NUMBERS)_S 2100 11019 _m
(W)_S -7 _t
(ith)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(returns)_S 61 _t
(multiplication)_S 61 _t
(identity)_S -12 _t
(,)_S 61 _t
(1)_S 2100 10803 _m
(<expr>)_S 3300 10803 _m
(the)_S 61 _t
(numbers)_S 2100 10587 _m
(returns)_S 3300 10587 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(multiplication)_S 1500 10155 _m
(\(/)_S 61 _t
(<expr>...\))_S 122 _t
3996 10155 _m
(DIVIDE)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(NUMBERS)_S 61 _t
(OR)_S 61 _t
(INVER)_S -11 _t
(T)_S 61 _t
(A)_S 61 _t
(SINGLE)_S 61 _t
(NUMBER)_S 2100 9939 _m
(W)_S -7 _t
(ith)_S 69 _t
(the)_S 68 _t
(math)_S 69 _t
(extension,)_S 69 _t
(division)_S 69 _t
(of)_S 69 _t
(integer)_S 69 _t
(numbers)_S 69 _t
(results)_S 69 _t
(in)_S 68 _t
(a)_S 69 _t
(rational)_S 69 _t
(quotient,)_S 69 _t
(rather)_S 69 _t
(than)_S 2100 9723 _m
(integer)_S -10 _t
(.)_S 67 _t
(T)_S -13 _t
(o)_S 68 _t
(perform)_S 67 _t
(integer)_S 67 _t
(division,)_S 67 _t
(use)_S 67 _t
(TRUNCA)_S -20 _t
(TE.)_S 67 _t
(When)_S 67 _t
(an)_S 68 _t
(integer)_S 67 _t
(complex)_S 67 _t
(is)_S 67 _t
(divided)_S 67 _t
(by)_S 2100 9507 _m
(an)_S 61 _t
(integer)_S -7 _t
(,)_S 61 _t
(the)_S 61 _t
(quotient)_S 61 _t
(is)_S 61 _t
(\257oating)_S 61 _t
(point)_S 61 _t
(complex.)_S 2100 9291 _m
(<expr>)_S 3300 9291 _m
(the)_S 61 _t
(numbers)_S 2100 9075 _m
(returns)_S 3300 9075 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(division)_S 1500 8643 _m
(\(1+)_S 61 _t
(<expr>\))_S 122 _t
7124 8643 _m
(ADD)_S 61 _t
(ONE)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 8427 _m
(<expr>)_S 3300 8427 _m
(the)_S 61 _t
(number)_S 2100 8211 _m
(returns)_S 3300 8211 _m
(the)_S 61 _t
(number)_S 61 _t
(plus)_S 61 _t
(one)_S 1500 7779 _m
(\(1-)_S 61 _t
(<expr>\))_S 122 _t
6285 7779 _m
(SUBTRACT)_S 61 _t
(ONE)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 7563 _m
(<expr>)_S 3300 7563 _m
(the)_S 61 _t
(number)_S 2100 7347 _m
(returns)_S 3300 7347 _m
(the)_S 61 _t
(number)_S 61 _t
(minus)_S 61 _t
(one)_S 1500 6915 _m
(\(rem)_S 61 _t
(<expr>...\))_S 122 _t
6031 6915 _m
(REMAINDER)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(NUMBERS)_S 2100 6699 _m
(W)_S -7 _t
(ith)_S 61 _t
(the)_S 61 _t
(math)_S 61 _t
(extension,)_S 61 _t
(only)_S 61 _t
(two)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(allowed.)_S 2100 6483 _m
(<expr>)_S 3300 6483 _m
(the)_S 61 _t
(real)_S 61 _t
(numbers)_S 61 _t
(\(must)_S 61 _t
(be)_S 61 _t
(integers,)_S 61 _t
(without)_S 61 _t
(math)_S 61 _t
(extension\))_S 2100 6267 _m
(returns)_S 3300 6267 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(remainder)_S 61 _t
(operation)_S 61 _t
(\(remainder)_S 61 _t
(with)_S 61 _t
(truncating)_S 61 _t
(division\))_S 1500 5835 _m
(\(mod)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 5868 5835 _m
(NUMBER)_S 61 _t
(MODULO)_S 61 _t
(ANOTHER)_S 61 _t
(NUMBER)_S 2100 5619 _m
(Part)_S 61 _t
(of)_S 61 _t
(math)_S 61 _t
(extension.)_S 2100 5403 _m
(<expr1>)_S 3300 5403 _m
(real)_S 61 _t
(number)_S 2100 5187 _m
(<expr2>)_S 3300 5187 _m
(real)_S 61 _t
(number)_S 61 _t
(divisor)_S 61 _t
(\(may)_S 61 _t
(not)_S 61 _t
(be)_S 61 _t
(zero\))_S 2100 4971 _m
(returns)_S 3300 4971 _m
(the)_S 73 _t
(remainder)_S 73 _t
(after)_S 74 _t
(dividing)_S 73 _t
(<expr1>)_S 73 _t
(by)_S 74 _t
(<expr2>)_S 73 _t
(using)_S 74 _t
(\257ooring)_S 73 _t
(division,)_S 74 _t
(thus)_S 3300 4755 _m
(there)_S 61 _t
(is)_S 61 _t
(no)_S 61 _t
(discontinuity)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(function)_S 61 _t
(around)_S 61 _t
(zero.)_S 1500 4323 _m
(\(min)_S 61 _t
(<expr>...\))_S 122 _t
5756 4323 _m
(THE)_S 61 _t
(SMALLEST)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(NUMBERS)_S 2100 4107 _m
(<expr>)_S 3300 4107 _m
(the)_S 61 _t
(real)_S 61 _t
(numbers)_S 2100 3891 _m
(returns)_S 3300 3891 _m
(the)_S 61 _t
(smallest)_S 61 _t
(number)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(list)_S 1500 3459 _m
(\(max)_S 61 _t
(<expr>...\))_S 122 _t
5878 3459 _m
(THE)_S 61 _t
(LARGEST)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(NUMBERS)_S 2100 3243 _m
(<expr>)_S 3300 3243 _m
(the)_S 61 _t
(real)_S 61 _t
(numbers)_S 2100 3027 _m
(returns)_S 3300 3027 _m
(the)_S 61 _t
(lar)_S -3 _t
(gest)_S 61 _t
(number)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(list)_S 1500 2595 _m
(\(abs)_S 61 _t
(<expr>\))_S 122 _t
5932 2595 _m
(THE)_S 61 _t
(ABSOLUTE)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 2379 _m
(<expr>)_S 3300 2379 _m
(the)_S 61 _t
(number)_S 2100 2163 _m
(returns)_S 3300 2163 _m
(the)_S 89 _t
(absolute)_S 89 _t
(value)_S 90 _t
(of)_S 89 _t
(the)_S 90 _t
(number)_S -7 _t
(,)_S 89 _t
(which)_S 89 _t
(is)_S 90 _t
(the)_S 89 _t
(\257oating)_S 90 _t
(point)_S 89 _t
(magnitude)_S 90 _t
(for)_S 3300 1947 _m
(complex)_S 61 _t
(numbers.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4290 11867 _m
(ARITHMETIC)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(43)_S 1500 11235 _m
(\(signum)_S 61 _t
(<expr>\))_S 6704 11235 _m
(GET)_S 61 _t
(THE)_S 61 _t
(SIGN)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 11019 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 10803 _m
(<expr>)_S 3300 10803 _m
(the)_S 61 _t
(number)_S 2100 10587 _m
(returns)_S 3300 10587 _m
(zero)_S 53 _t
(if)_S 54 _t
(number)_S 54 _t
(is)_S 53 _t
(zero,)_S 54 _t
(one)_S 54 _t
(if)_S 53 _t
(positive,)_S 54 _t
(or)_S 54 _t
(negative)_S 53 _t
(one)_S 54 _t
(if)_S 54 _t
(negative.)_S 53 _t
(Numeric)_S 54 _t
(type)_S 3300 10371 _m
(is)_S 45 _t
(same)_S 45 _t
(as)_S 46 _t
(number)_S -10 _t
(.)_S 45 _t
(For)_S 45 _t
(a)_S 46 _t
(complex)_S 45 _t
(number)_S -7 _t
(,)_S 45 _t
(returns)_S 46 _t
(unit)_S 45 _t
(magnitude)_S 45 _t
(but)_S 46 _t
(same)_S 45 _t
(phase)_S 3300 10155 _m
(as)_S 61 _t
(number)_S -10 _t
(.)_S 1500 9723 _m
(\(gcd)_S 61 _t
([<n>...]\))_S 122 _t
5318 9723 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(GREA)_S -20 _t
(TEST)_S 61 _t
(COMMON)_S 61 _t
(DIVISOR)_S 2100 9507 _m
(W)_S -7 _t
(ith)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(returns)_S 61 _t
(0,)_S 61 _t
(with)_S 61 _t
(one)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(returns)_S 61 _t
(the)_S 61 _t
(ar)_S -3 _t
(gument.)_S 2100 9291 _m
(<n>)_S 3300 9291 _m
(The)_S 61 _t
(number\(s\))_S 61 _t
(\(integer\))_S 2100 9075 _m
(returns)_S 3300 9075 _m
(the)_S 61 _t
(greatest)_S 61 _t
(common)_S 61 _t
(divisor)_S 1500 8643 _m
(\(lcm)_S 61 _t
(<n>...\))_S 5519 8643 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(LEAST)_S 61 _t
(COMMON)_S 61 _t
(MUL)_S -17 _t
(TIPLE)_S 2100 8427 _m
(Part)_S 61 _t
(of)_S 61 _t
(math)_S 61 _t
(extension.)_S 2100 8211 _m
(<n>)_S 3300 8211 _m
(The)_S 61 _t
(number\(s\))_S 61 _t
(\(integer\))_S 2100 7995 _m
(returns)_S 3300 7995 _m
(the)_S 61 _t
(least)_S 61 _t
(common)_S 61 _t
(multiple)_S 1500 7563 _m
(\(random)_S 61 _t
(<n>)_S 61 _t
([<state>]\))_S 122 _t
5736 7563 _m
(COMPUTE)_S 61 _t
(A)_S 61 _t
(PSEUDO-RANDOM)_S 61 _t
(NUMBER)_S 2100 7347 _m
(<n>)_S 3300 7347 _m
(the)_S 61 _t
(real)_S 61 _t
(number)_S 61 _t
(upper)_S 61 _t
(bound)_S 2100 7131 _m
(<state>)_S 3300 7131 _m
(a)_S 61 _t
(random-state)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(*random-state*\))_S 2100 6915 _m
(returns)_S 3300 6915 _m
(a)_S 61 _t
(random)_S 61 _t
(number)_S 61 _t
(in)_S 61 _t
(range)_S 61 _t
([0,n\))_S 1500 6483 _m
(\(make-random-state)_S 61 _t
([<state>]\))_S 6942 6483 _m
(CREA)_S -20 _t
(TE)_S 61 _t
(A)_S 61 _t
(RANDOM-ST)_S -15 _t
(A)_S -20 _t
(TE)_S 2100 6267 _m
(<state>)_S 3300 6267 _m
(a)_S 61 _t
(random-state,)_S 61 _t
(t,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(\(default)_S 61 _t
(NIL\).)_S 61 _t
(NIL)_S 61 _t
(means)_S 61 _t
(*random-state*)_S 2100 6051 _m
(returns)_S 3300 6051 _m
(If)_S 61 _t
(<state>)_S 61 _t
(is)_S 61 _t
(t,)_S 61 _t
(a)_S 61 _t
(random)_S 61 _t
(random-state,)_S 61 _t
(otherwise)_S 61 _t
(a)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(<state>)_S 1500 5619 _m
(\(sin)_S 61 _t
(<expr>\))_S 122 _t
6204 5619 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(SINE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 5403 _m
(\(cos)_S 61 _t
(<expr>\))_S 122 _t
5950 5403 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(COSINE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 5187 _m
(\(tan)_S 61 _t
(<expr>\))_S 122 _t
5761 5187 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(T)_S -15 _t
(ANGENT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 4971 _m
(\(asin)_S 61 _t
(<expr>\))_S 122 _t
5766 4971 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(ARC)_S 61 _t
(SINE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 4755 _m
(\(acos)_S 61 _t
(<expr>\))_S 122 _t
5512 4755 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(ARC)_S 61 _t
(COSINE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 4539 _m
(<expr>)_S 3300 4539 _m
(the)_S 61 _t
(\257oating)_S 61 _t
(point)_S 61 _t
(number)_S 2100 4323 _m
(returns)_S 3300 4323 _m
(the)_S 61 _t
(sine,)_S 61 _t
(cosine,)_S 61 _t
(tangent,)_S 61 _t
(arc)_S 61 _t
(sine,)_S 61 _t
(or)_S 61 _t
(arc)_S 61 _t
(cosine)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(number)_S 1500 3891 _m
(\(atan)_S 61 _t
(<expr>)_S 61 _t
([<expr2>]\))_S 122 _t
5323 3891 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(ARC)_S 61 _t
(T)_S -15 _t
(ANGENT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 3675 _m
(<expr>)_S 3300 3675 _m
(the)_S 61 _t
(\257oating)_S 61 _t
(point)_S 61 _t
(number)_S 61 _t
(\(numerator\))_S 2100 3459 _m
(<expr2>)_S 3300 3459 _m
(the)_S 61 _t
(denominator)_S -7 _t
(,)_S 61 _t
(default)_S 61 _t
(1.)_S 61 _t
(May)_S 61 _t
(only)_S 61 _t
(be)_S 61 _t
(speci\256ed)_S 61 _t
(if)_S 61 _t
(math)_S 61 _t
(extension)_S 61 _t
(installed)_S 2100 3243 _m
(returns)_S 3300 3243 _m
(the)_S 61 _t
(arc)_S 61 _t
(tangent)_S 61 _t
(of)_S 61 _t
(<expr>/<expr2>)_S 1500 2811 _m
(\(sinh)_S 61 _t
(<expr>\))_S 4992 2811 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(HYPERBOLIC)_S 61 _t
(SINE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 2595 _m
(\(cosh)_S 61 _t
(<expr>\))_S 4738 2595 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(HYPERBOLIC)_S 61 _t
(COSINE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 2379 _m
(\(tanh)_S 61 _t
(<expr>\))_S 4549 2379 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(HYPERBOLIC)_S 61 _t
(T)_S -15 _t
(ANGENT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 2163 _m
(\(asinh)_S 61 _t
(<expr>\))_S 4554 2163 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(HYPERBOLIC)_S 61 _t
(ARC)_S 61 _t
(SINE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 1947 _m
(\(acosh)_S 61 _t
(<expr>\))_S 4300 1947 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(HYPERBOLIC)_S 61 _t
(ARC)_S 61 _t
(COSINE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 1500 1731 _m
(\(atanh)_S 61 _t
(<expr>\))_S 4111 1731 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(HYPERBOLIC)_S 61 _t
(ARC)_S 61 _t
(T)_S -15 _t
(ANGENT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 1515 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 1299 _m
(<expr>)_S 3300 1299 _m
(the)_S 61 _t
(number)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4290 11867 _m
(ARITHMETIC)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(44)_S 2100 11235 _m
(returns)_S 3300 11235 _m
(the)_S 74 _t
(hyperbolic)_S 73 _t
(sine,)_S 74 _t
(cosine,)_S 73 _t
(tangent,)_S 74 _t
(arc)_S 73 _t
(sine,)_S 74 _t
(arc)_S 73 _t
(cosine,)_S 73 _t
(or)_S 74 _t
(arc)_S 73 _t
(tangent)_S 74 _t
(of)_S 73 _t
(the)_S 3300 11019 _m
(number)_S -10 _t
(.)_S 1500 10587 _m
(\(expt)_S 61 _t
(<x-expr>)_S 61 _t
(<y-expr>\))_S 122 _t
6615 10587 _m
(COMPUTE)_S 61 _t
(X)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(THE)_S 61 _t
(Y)_S 61 _t
(POWER)_S 2100 10371 _m
(<x-expr>)_S 3300 10371 _m
(the)_S 61 _t
(number)_S 61 _t
2100 10155 _m
(<y-expr>)_S 3300 10155 _m
(the)_S 61 _t
(exponent)_S 61 _t
2100 9939 _m
(returns)_S 3300 9939 _m
(x)_S 57 _t
(to)_S 57 _t
(the)_S 57 _t
(y)_S 57 _t
(power)_S -10 _t
(.)_S 58 _t
(If)_S 57 _t
(y)_S 57 _t
(is)_S 57 _t
(a)_S 57 _t
(\256xnum,)_S 57 _t
(then)_S 57 _t
(the)_S 57 _t
(result)_S 57 _t
(type)_S 57 _t
(is)_S 58 _t
(the)_S 57 _t
(same)_S 57 _t
(as)_S 57 _t
(the)_S 57 _t
(type)_S 57 _t
(of)_S 3300 9723 _m
(x,)_S 56 _t
(unless)_S 57 _t
(\256xnum)_S 57 _t
(or)_S 57 _t
(ratio)_S 57 _t
(and)_S 57 _t
(it)_S 57 _t
(would)_S 57 _t
(over\257ow)_S -12 _t
(,)_S 57 _t
(then)_S 56 _t
(the)_S 57 _t
(result)_S 57 _t
(type)_S 57 _t
(is)_S 57 _t
(a)_S 57 _t
(\257onum.)_S 1500 9291 _m
(\(exp)_S 61 _t
(<x-expr>\))_S 122 _t
6635 9291 _m
(COMPUTE)_S 61 _t
(E)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(THE)_S 61 _t
(X)_S 61 _t
(POWER)_S 2100 9075 _m
(<x-expr>)_S 3300 9075 _m
(the)_S 61 _t
(\257oating)_S 61 _t
(point)_S 61 _t
(number)_S 61 _t
2100 8859 _m
(returns)_S 3300 8859 _m
(e)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(x)_S 61 _t
(power)_S 1500 8427 _m
(\(cis)_S 61 _t
(<x-expr>\))_S 6946 8427 _m
(COMPUTE)_S 61 _t
(COSINE)_S 61 _t
(+)_S 61 _t
(I)_S 61 _t
(SINE)_S 2100 8211 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 7995 _m
(<x-expr>)_S 3300 7995 _m
(the)_S 61 _t
(number)_S 2100 7779 _m
(returns)_S 3300 7779 _m
(e)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(ix)_S 61 _t
(power)_S 1500 7347 _m
(\(log)_S 61 _t
(<expr>)_S 61 _t
([<base>]\))_S 6978 7347 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(LOGRITHM)_S 2100 7131 _m
(Part)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 6915 _m
(<expr>)_S 3300 6915 _m
(the)_S 61 _t
(number)_S 2100 6699 _m
(<base>)_S 3300 6699 _m
(the)_S 61 _t
(base,)_S 61 _t
(default)_S 61 _t
(is)_S 61 _t
(e)_S 2100 6483 _m
(returns)_S 3300 6483 _m
(log)_S 61 _t
(base)_S 61 _t
(<base>)_S 61 _t
(of)_S 61 _t
(<expr>)_S 1500 6051 _m
(\(sqrt)_S 61 _t
(<expr>\))_S 122 _t
5318 6051 _m
(COMPUTE)_S 61 _t
(THE)_S 61 _t
(SQUARE)_S 61 _t
(ROOT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 5835 _m
(<expr>)_S 3300 5835 _m
(the)_S 61 _t
(number)_S 61 _t
2100 5619 _m
(returns)_S 3300 5619 _m
(the)_S 61 _t
(square)_S 61 _t
(root)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(number)_S 1500 5187 _m
(\(numerator)_S 61 _t
(<expr>\))_S 5993 5187 _m
(GET)_S 61 _t
(THE)_S 61 _t
(NUMERA)_S -20 _t
(T)_S -3 _t
(OR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 4971 _m
(Part)_S 61 _t
(of)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 4755 _m
(<expr>)_S 3300 4755 _m
(rational)_S 61 _t
(number)_S 2100 4539 _m
(returns)_S 3300 4539 _m
(numerator)_S 61 _t
(of)_S 61 _t
(number)_S 61 _t
(\(number)_S 61 _t
(if)_S 61 _t
(integer\))_S 1500 4107 _m
(\(denominator)_S 61 _t
(<expr>\))_S 5790 4107 _m
(GET)_S 61 _t
(THE)_S 61 _t
(DENOMINA)_S -20 _t
(T)_S -3 _t
(OR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 3891 _m
(Part)_S 61 _t
(of)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 3675 _m
(<expr>)_S 3300 3675 _m
(rational)_S 61 _t
(number)_S 2100 3459 _m
(returns)_S 3300 3459 _m
(denominator)_S 61 _t
(of)_S 61 _t
(number)_S 61 _t
(\(1)_S 61 _t
(if)_S 61 _t
(integer\))_S 1500 3027 _m
(\(complex)_S 61 _t
(<real>)_S 61 _t
([<imag>]\))_S 6361 3027 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(COMPLEX)_S 61 _t
(NUMBER)_S 2100 2811 _m
(Part)_S 61 _t
(of)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 2595 _m
(<real>)_S 3300 2595 _m
(real)_S 61 _t
(number)_S 61 _t
(real)_S 61 _t
(part)_S 2100 2379 _m
(<imag>)_S 3300 2379 _m
(real)_S 61 _t
(number)_S 61 _t
(imaginary)_S 61 _t
(part)_S 61 _t
(\(default)_S 61 _t
(0\))_S 2100 2163 _m
(returns)_S 3300 2163 _m
(the)_S 61 _t
(complex)_S 61 _t
(number)_S 1500 1731 _m
(\(realpart)_S 61 _t
(<expr>\))_S 6151 1731 _m
(GET)_S 61 _t
(THE)_S 61 _t
(REAL)_S 61 _t
(P)_S -17 _t
(AR)_S -11 _t
(T)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 1515 _m
(Part)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 1299 _m
(<expr>)_S 3300 1299 _m
(the)_S 61 _t
(number)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4290 11867 _m
(ARITHMETIC)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(45)_S 2100 11235 _m
(returns)_S 3300 11235 _m
(the)_S 61 _t
(real)_S 61 _t
(part)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(complex)_S 61 _t
(number)_S -7 _t
(,)_S 61 _t
(or)_S 61 _t
(the)_S 61 _t
(number)_S 61 _t
(itself)_S 61 _t
(if)_S 61 _t
(a)_S 61 _t
(real)_S 61 _t
(number)_S 1500 10803 _m
(\(imagpart)_S 61 _t
(<expr>\))_S 5570 10803 _m
(GET)_S 61 _t
(THE)_S 61 _t
(IMAGINAR)_S -10 _t
(Y)_S 61 _t
(P)_S -17 _t
(AR)_S -11 _t
(T)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 10587 _m
(Part)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 10371 _m
(<expr>)_S 3300 10371 _m
(the)_S 61 _t
(number)_S 2100 10155 _m
(returns)_S 3300 10155 _m
(the)_S 62 _t
(imaginary)_S 62 _t
(part)_S 62 _t
(of)_S 62 _t
(a)_S 62 _t
(complex)_S 62 _t
(number)_S -7 _t
(,)_S 62 _t
(or)_S 62 _t
(zero)_S 62 _t
(of)_S 62 _t
(the)_S 62 _t
(type)_S 62 _t
(of)_S 62 _t
(the)_S 62 _t
(number)_S 62 _t
(if)_S 62 _t
(a)_S 3300 9939 _m
(real)_S 61 _t
(number)_S -10 _t
(.)_S 1500 9507 _m
(\(conjugate)_S 61 _t
(<expr>\))_S 6072 9507 _m
(GET)_S 61 _t
(THE)_S 61 _t
(CONJUGA)_S -20 _t
(TE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 9291 _m
(Part)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 9075 _m
(<expr>)_S 3300 9075 _m
(the)_S 61 _t
(number)_S 2100 8859 _m
(returns)_S 3300 8859 _m
(the)_S 61 _t
(conjugate)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(complex)_S 61 _t
(number)_S -7 _t
(,)_S 61 _t
(or)_S 61 _t
(the)_S 61 _t
(number)_S 61 _t
(itself)_S 61 _t
(if)_S 61 _t
(a)_S 61 _t
(real)_S 61 _t
(number)_S -10 _t
(.)_S 1500 8427 _m
(\(phase)_S 61 _t
(<expr>\))_S 6551 8427 _m
(GET)_S 61 _t
(THE)_S 61 _t
(PHASE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(NUMBER)_S 2100 8211 _m
(Part)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 7995 _m
(<expr>)_S 3300 7995 _m
(the)_S 61 _t
(number)_S 2100 7779 _m
(returns)_S 3300 7779 _m
(the)_S 61 _t
(phase)_S 61 _t
(angle,)_S 61 _t
(equivalent)_S 61 _t
(to)_S 61 _t
(\(atan)_S 61 _t
(\(imagpart)_S 61 _t
(<expr>\))_S 61 _t
(\(realpart)_S 61 _t
(<expr>\)\))_S 1500 7347 _m
(\(<)_S 61 _t
(<n1>)_S 61 _t
(<n2>...\))_S 122 _t
7385 7347 _m
(TEST)_S 61 _t
(FOR)_S 61 _t
(LESS)_S 61 _t
(THAN)_S 1500 7131 _m
(\(<=)_S 61 _t
(<n1>)_S 61 _t
(<n2>...\))_S 122 _t
6085 7131 _m
(TEST)_S 61 _t
(FOR)_S 61 _t
(LESS)_S 61 _t
(THAN)_S 61 _t
(OR)_S 61 _t
(EQUAL)_S 61 _t
(T)_S -3 _t
(O)_S 1500 6915 _m
(\(=)_S 61 _t
(<n1>)_S 61 _t
(<n2>...\))_S 122 _t
7460 6915 _m
(TEST)_S 61 _t
(FOR)_S 61 _t
(EQUAL)_S 61 _t
(T)_S -3 _t
(O)_S 1500 6699 _m
(\(/=)_S 61 _t
(<n1>)_S 61 _t
(<n2>...\))_S 122 _t
7022 6699 _m
(TEST)_S 61 _t
(FOR)_S 61 _t
(NOT)_S 61 _t
(EQUAL)_S 61 _t
(T)_S -3 _t
(O)_S 1500 6483 _m
(\(>=)_S 61 _t
(<n1>)_S 61 _t
(<n2>...\))_S 122 _t
5688 6483 _m
(TEST)_S 61 _t
(FOR)_S 61 _t
(GREA)_S -20 _t
(TER)_S 61 _t
(THAN)_S 61 _t
(OR)_S 61 _t
(EQUAL)_S 61 _t
(T)_S -3 _t
(O)_S 1500 6267 _m
(\(>)_S 61 _t
(<n1>)_S 61 _t
(<n2>...\))_S 122 _t
6988 6267 _m
(TEST)_S 61 _t
(FOR)_S 61 _t
(GREA)_S -20 _t
(TER)_S 61 _t
(THAN)_S 2100 6051 _m
(<n1>)_S 3300 6051 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(real)_S 61 _t
(number)_S 61 _t
(to)_S 61 _t
(compare)_S 2100 5835 _m
(<n2>)_S 3300 5835 _m
(the)_S 61 _t
(second)_S 61 _t
(real)_S 61 _t
(number)_S 61 _t
(to)_S 61 _t
(compare)_S 2100 5619 _m
(returns)_S 3300 5619 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(comparing)_S 61 _t
(<n1>)_S 61 _t
(with)_S 61 _t
(<n2>...)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4051 11867 _m
(BITWISE)_S 61 _t
(LOGICAL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(46)_S 1500 10986 _m
/HelveticaR 660 _ff
(BITWISE)_S 73 _t
(LOGICAL)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(logand)_S 61 _t
([<expr>...]\))_S 122 _t
5502 10550 _m
(THE)_S 61 _t
(BITWISE)_S 61 _t
(AND)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(INTEGERS)_S 2100 10334 _m
(W)_S -7 _t
(ith)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(returns)_S 61 _t
(identity)_S 61 _t
(-1)_S 2100 10118 _m
(<expr>)_S 3300 10118 _m
(the)_S 61 _t
(integers)_S 2100 9902 _m
(returns)_S 3300 9902 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(and)_S 61 _t
(operation)_S 1500 9470 _m
(\(logior)_S 61 _t
([<expr>...]\))_S 122 _t
4616 9470 _m
(THE)_S 61 _t
(BITWISE)_S 61 _t
(INCLUSIVE)_S 61 _t
(OR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(INTEGERS)_S 2100 9254 _m
(W)_S -7 _t
(ith)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(returns)_S 61 _t
(identity)_S 61 _t
(0)_S 2100 9038 _m
(<expr>)_S 3300 9038 _m
(the)_S 61 _t
(integers)_S 2100 8822 _m
(returns)_S 3300 8822 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(inclusive)_S 61 _t
(or)_S 61 _t
(operation)_S 1500 8390 _m
(\(logxor)_S 61 _t
([<expr>...]\))_S 122 _t
4565 8390 _m
(THE)_S 61 _t
(BITWISE)_S 61 _t
(EXCLUSIVE)_S 61 _t
(OR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(INTEGERS)_S 2100 8174 _m
(W)_S -7 _t
(ith)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(returns)_S 61 _t
(identity)_S 61 _t
(0)_S 2100 7958 _m
(<expr>)_S 3300 7958 _m
(the)_S 61 _t
(integers)_S 2100 7742 _m
(returns)_S 3300 7742 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(exclusive)_S 61 _t
(or)_S 61 _t
(operation)_S 1500 7310 _m
(\(lognot)_S 61 _t
(<expr>\))_S 122 _t
6368 7310 _m
(THE)_S 61 _t
(BITWISE)_S 61 _t
(NOT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(INTEGER)_S 2100 7094 _m
(<expr>)_S 3300 7094 _m
(the)_S 61 _t
(integer)_S 2100 6878 _m
(returns)_S 3300 6878 _m
(the)_S 61 _t
(bitwise)_S 61 _t
(inversion)_S 61 _t
(of)_S 61 _t
(integer)_S 1500 6446 _m
(\(logtest)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 5879 6446 _m
(TEST)_S 61 _t
(BITWISE)_S 61 _t
(AND)_S 61 _t
(OF)_S 61 _t
(TWO)_S 61 _t
(INTEGERS)_S 2100 6230 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 6014 _m
(<expr1>)_S 3300 6014 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(integer)_S 2100 5798 _m
(<expr2>)_S 3300 5798 _m
(the)_S 61 _t
(second)_S 61 _t
(integer)_S 2100 5582 _m
(returns)_S 3300 5582 _m
(T)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(and)_S 61 _t
(operation)_S 61 _t
(is)_S 61 _t
(non-zero,)_S 61 _t
(else)_S 61 _t
(NIL)_S 1500 5150 _m
(\(ash)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 7599 5150 _m
(ARITHMETIC)_S 61 _t
(SHIFT)_S 2100 4934 _m
(Part)_S 61 _t
(of)_S 61 _t
(math)_S 61 _t
(extension)_S 2100 4718 _m
(<expr1>)_S 3300 4718 _m
(integer)_S 61 _t
(to)_S 61 _t
(shift)_S 2100 4502 _m
(<expr2>)_S 3300 4502 _m
(number)_S 61 _t
(of)_S 61 _t
(bit)_S 61 _t
(positions)_S 61 _t
(to)_S 61 _t
(shift)_S 61 _t
(\(positive)_S 61 _t
(is)_S 61 _t
(to)_S 61 _t
(left\))_S 2100 4286 _m
(returns)_S 3300 4286 _m
(shifted)_S 61 _t
(integer)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4524 11867 _m
(STRING)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(47)_S 1500 10986 _m
/HelveticaR 660 _ff
(STRING)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(Note:)_S 58 _t
(functions)_S 58 _t
(with)_S 59 _t
(names)_S 58 _t
(starting)_S 58 _t
("string")_S 59 _t
(will)_S 58 _t
(also)_S 58 _t
(accept)_S 59 _t
(a)_S 58 _t
(symbol,)_S 59 _t
(in)_S 58 _t
(which)_S 58 _t
(case)_S 59 _t
(the)_S 58 _t
(symbol's)_S 59 _t
(print)_S 1500 10334 _m
(name)_S 61 _t
(is)_S 61 _t
(used.)_S 1500 9902 _m
(\(string)_S 61 _t
(<expr>\))_S 122 _t
4894 9902 _m
(MAKE)_S 61 _t
(A)_S 61 _t
(STRING)_S 61 _t
(FROM)_S 61 _t
(AN)_S 61 _t
(INTEGER)_S 61 _t
(ASCII)_S 61 _t
(V)_S -23 _t
(ALUE)_S 2100 9686 _m
(<expr>)_S 3300 9686 _m
(an)_S 100 _t
(integer)_S 101 _t
(\(which)_S 100 _t
(is)_S 100 _t
(\256rst)_S 100 _t
(converted)_S 100 _t
(into)_S 101 _t
(its)_S 100 _t
(ASCII)_S 100 _t
(character)_S 100 _t
(value\),)_S 100 _t
(string,)_S 3300 9470 _m
(character)_S -7 _t
(,)_S 61 _t
(or)_S 61 _t
(symbol)_S 2100 9254 _m
(returns)_S 3300 9254 _m
(the)_S 61 _t
(string)_S 61 _t
(representation)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(ar)_S -3 _t
(gument)_S 1500 8822 _m
(\(string-trim)_S 61 _t
(<bag>)_S 61 _t
(<str>\))_S 122 _t
6530 8822 _m
(TRIM)_S 61 _t
(BOTH)_S 61 _t
(ENDS)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(STRING)_S 2100 8606 _m
(<bag>)_S 3300 8606 _m
(a)_S 61 _t
(string)_S 61 _t
(containing)_S 61 _t
(characters)_S 61 _t
(to)_S 61 _t
(trim)_S 2100 8390 _m
(<str>)_S 3300 8390 _m
(the)_S 61 _t
(string)_S 61 _t
(to)_S 61 _t
(trim)_S 2100 8174 _m
(returns)_S 3300 8174 _m
(a)_S 61 _t
(trimed)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(string)_S 1500 7742 _m
(\(string-left-trim)_S 61 _t
(<bag>)_S 61 _t
(<str>\))_S 122 _t
6276 7742 _m
(TRIM)_S 61 _t
(THE)_S 61 _t
(LEFT)_S 61 _t
(END)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(STRING)_S 2100 7526 _m
(<bag>)_S 3300 7526 _m
(a)_S 61 _t
(string)_S 61 _t
(containing)_S 61 _t
(characters)_S 61 _t
(to)_S 61 _t
(trim)_S 2100 7310 _m
(<str>)_S 3300 7310 _m
(the)_S 61 _t
(string)_S 61 _t
(to)_S 61 _t
(trim)_S 2100 7094 _m
(returns)_S 3300 7094 _m
(a)_S 61 _t
(trimed)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(string)_S 1500 6662 _m
(\(string-right-trim)_S 61 _t
(<bag>)_S 61 _t
(<str>\))_S 122 _t
6154 6662 _m
(TRIM)_S 61 _t
(THE)_S 61 _t
(RIGHT)_S 61 _t
(END)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(STRING)_S 2100 6446 _m
(<bag>)_S 3300 6446 _m
(a)_S 61 _t
(string)_S 61 _t
(containing)_S 61 _t
(characters)_S 61 _t
(to)_S 61 _t
(trim)_S 2100 6230 _m
(<str>)_S 3300 6230 _m
(the)_S 61 _t
(string)_S 61 _t
(to)_S 61 _t
(trim)_S 2100 6014 _m
(returns)_S 3300 6014 _m
(a)_S 61 _t
(trimed)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(string)_S 1500 5582 _m
(\(string-upcase)_S 61 _t
(<str>)_S 61 _t
(&key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 122 _t
7043 5582 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(UPPERCASE)_S 2100 5366 _m
(<str>)_S 3300 5366 _m
(the)_S 61 _t
(string)_S 2100 5150 _m
(:start)_S 3300 5150 _m
(the)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 4934 _m
(:end)_S 3300 4934 _m
(the)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 4718 _m
(returns)_S 3300 4718 _m
(a)_S 61 _t
(converted)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(string)_S 1500 4286 _m
(\(string-downcase)_S 61 _t
(<str>)_S 61 _t
(&key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 122 _t
6962 4286 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(LOWERCASE)_S 2100 4070 _m
(<str>)_S 3300 4070 _m
(the)_S 61 _t
(string)_S 2100 3854 _m
(:start)_S 3300 3854 _m
(the)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 3638 _m
(:end)_S 3300 3638 _m
(the)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 3422 _m
(returns)_S 3300 3422 _m
(a)_S 61 _t
(converted)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(string)_S 1500 2990 _m
(\(nstring-upcase)_S 61 _t
(<str>)_S 61 _t
(&key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 122 _t
7043 2990 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(UPPERCASE)_S 2100 2774 _m
(<str>)_S 3300 2774 _m
(the)_S 61 _t
(string)_S 2100 2558 _m
(:start)_S 3300 2558 _m
(the)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 2342 _m
(:end)_S 3300 2342 _m
(the)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 2126 _m
(returns)_S 3300 2126 _m
(the)_S 61 _t
(converted)_S 61 _t
(string)_S 61 _t
(\(not)_S 61 _t
(a)_S 61 _t
(copy\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4524 11867 _m
(STRING)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(48)_S 1500 11235 _m
(\(nstring-downcase)_S 61 _t
(<str>)_S 61 _t
(&key)_S 61 _t
(:start)_S 61 _t
(:end\))_S 122 _t
6962 11235 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(LOWERCASE)_S 2100 11019 _m
(<str>)_S 3300 11019 _m
(the)_S 61 _t
(string)_S 2100 10803 _m
(:start)_S 3300 10803 _m
(the)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 10587 _m
(:end)_S 3300 10587 _m
(the)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 10371 _m
(returns)_S 3300 10371 _m
(the)_S 61 _t
(converted)_S 61 _t
(string)_S 61 _t
(\(not)_S 61 _t
(a)_S 61 _t
(copy\))_S 1500 9939 _m
(\(strcat)_S 61 _t
(<expr>...\))_S 122 _t
7161 9939 _m
(CONCA)_S -20 _t
(TENA)_S -20 _t
(TE)_S 61 _t
(STRINGS)_S 2100 9723 _m
(Macro)_S 61 _t
(in)_S 61 _t
(init.lsp,)_S 61 _t
(to)_S 61 _t
(maintain)_S 61 _t
(compatibility)_S 61 _t
(with)_S 61 _t
(XLISP)_S -20 _t
(.)_S 2100 9507 _m
(See)_S 61 _t
(CONCA)_S -20 _t
(TENA)_S -20 _t
(TE)_S 61 _t
(for)_S 61 _t
(preferred)_S 61 _t
(function.)_S 2100 9291 _m
(<expr>)_S 3300 9291 _m
(the)_S 61 _t
(strings)_S 61 _t
(to)_S 61 _t
(concatenate)_S 2100 9075 _m
(returns)_S 3300 9075 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(concatenating)_S 61 _t
(the)_S 61 _t
(strings)_S 1500 8643 _m
(\(string<)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 8427 _m
(\(string<=)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 8211 _m
(\(string=)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 7995 _m
(\(string/=)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 7779 _m
(\(string>=)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 7563 _m
(\(string>)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 2100 7347 _m
(<str1>)_S 3300 7347 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(string)_S 61 _t
(to)_S 61 _t
(compare)_S 2100 7131 _m
(<str2>)_S 3300 7131 _m
(the)_S 61 _t
(second)_S 61 _t
(string)_S 61 _t
(to)_S 61 _t
(compare)_S 2100 6915 _m
(:start1)_S 3300 6915 _m
(\256rst)_S 61 _t
(substring)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 6699 _m
(:end1)_S 3300 6699 _m
(\256rst)_S 61 _t
(substring)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 6483 _m
(:start2)_S 3300 6483 _m
(second)_S 61 _t
(substring)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 6267 _m
(:end2)_S 3300 6267 _m
(second)_S 61 _t
(substring)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 6051 _m
(returns)_S 3300 6051 _m
(string=:)_S 61 _t
(t)_S 61 _t
(if)_S 61 _t
(predicate)_S 61 _t
(is)_S 61 _t
(true,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 3300 5835 _m
(others:)_S 61 _t
(If)_S 61 _t
(predicate)_S 61 _t
(is)_S 61 _t
(true)_S 61 _t
(then)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(initial)_S 61 _t
(matching)_S 61 _t
(characters,)_S 61 _t
(else)_S 61 _t
(NIL)_S 2100 5619 _m
(Note:)_S 61 _t
(case)_S 61 _t
(is)_S 61 _t
(signi\256cant)_S 61 _t
(with)_S 61 _t
(these)_S 61 _t
(comparison)_S 61 _t
(functions.)_S 1500 5187 _m
(\(string-lessp)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 4971 _m
(\(string-not-greaterp)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 4755 _m
(\(string-equal)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 4539 _m
(\(string-not-equal)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 4323 _m
(\(string-not-lessp)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 1500 4107 _m
(\(string-greaterp)_S 61 _t
(<str1>)_S 61 _t
(<str2>)_S 61 _t
(&key)_S 61 _t
(:start1)_S 61 _t
(:end1)_S 61 _t
(:start2)_S 61 _t
(:end2\))_S 2100 3891 _m
(<str1>)_S 3300 3891 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(string)_S 61 _t
(to)_S 61 _t
(compare)_S 2100 3675 _m
(<str2>)_S 3300 3675 _m
(the)_S 61 _t
(second)_S 61 _t
(string)_S 61 _t
(to)_S 61 _t
(compare)_S 2100 3459 _m
(:start1)_S 3300 3459 _m
(\256rst)_S 61 _t
(substring)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 3243 _m
(:end1)_S 3300 3243 _m
(\256rst)_S 61 _t
(substring)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 3027 _m
(:start2)_S 3300 3027 _m
(second)_S 61 _t
(substring)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 2811 _m
(:end2)_S 3300 2811 _m
(second)_S 61 _t
(substring)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 2595 _m
(returns)_S 3300 2595 _m
(string-equal:)_S 61 _t
(t)_S 61 _t
(if)_S 61 _t
(predicate)_S 61 _t
(is)_S 61 _t
(true,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 3300 2379 _m
(others:)_S 61 _t
(If)_S 61 _t
(predicate)_S 61 _t
(is)_S 61 _t
(true)_S 61 _t
(then)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(initial)_S 61 _t
(matching)_S 61 _t
(characters,)_S 61 _t
(else)_S 61 _t
(NIL)_S 2100 2163 _m
(Note:)_S 61 _t
(case)_S 61 _t
(is)_S 61 _t
(not)_S 61 _t
(signi\256cant)_S 61 _t
(with)_S 61 _t
(these)_S 61 _t
(comparison)_S 61 _t
(functions.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4300 11867 _m
(CHARACTER)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(49)_S 1500 10986 _m
/HelveticaR 660 _ff
(CHARACTER)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(char)_S 61 _t
(<string>)_S 61 _t
(<index>\))_S 122 _t
5593 10550 _m
(EXTRACT)_S 61 _t
(A)_S 61 _t
(CHARACTER)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(STRING)_S 2100 10334 _m
(<string>)_S 3300 10334 _m
(the)_S 61 _t
(string)_S 2100 10118 _m
(<index>)_S 3300 10118 _m
(the)_S 61 _t
(string)_S 61 _t
(index)_S 61 _t
(\(zero)_S 61 _t
(relative\))_S 2100 9902 _m
(returns)_S 3300 9902 _m
(the)_S 61 _t
(ascii)_S 61 _t
(code)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(character)_S 1500 9470 _m
(\(upper)_S -4 _t
(-case-p)_S 61 _t
(<chr>\))_S 122 _t
5929 9470 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(AN)_S 61 _t
(UPPER)_S 61 _t
(CASE)_S 61 _t
(CHARACTER?)_S 2100 9254 _m
(<chr>)_S 3300 9254 _m
(the)_S 61 _t
(character)_S 2100 9038 _m
(returns)_S 3300 9038 _m
(true)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(character)_S 61 _t
(is)_S 61 _t
(upper)_S 61 _t
(case,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 8606 _m
(\(lower)_S -4 _t
(-case-p)_S 61 _t
(<chr>\))_S 122 _t
5980 8606 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(LOWER)_S 61 _t
(CASE)_S 61 _t
(CHARACTER?)_S 2100 8390 _m
(<chr>)_S 3300 8390 _m
(the)_S 61 _t
(character)_S 2100 8174 _m
(returns)_S 3300 8174 _m
(true)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(character)_S 61 _t
(is)_S 61 _t
(lower)_S 61 _t
(case,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 7742 _m
(\(both-case-p)_S 61 _t
(<chr>\))_S 122 _t
4524 7742 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(AN)_S 61 _t
(ALPHABETIC)_S 61 _t
(\(EITHER)_S 61 _t
(CASE\))_S 61 _t
(CHARACTER?)_S 2100 7526 _m
(<chr>)_S 3300 7526 _m
(the)_S 61 _t
(character)_S 2100 7310 _m
(returns)_S 3300 7310 _m
(true)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(character)_S 61 _t
(is)_S 61 _t
(alphabetic,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 6878 _m
(\(digit-char)_S -4 _t
(-p)_S 61 _t
(<chr>\))_S 122 _t
6663 6878 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(DIGIT)_S 61 _t
(CHARACTER?)_S 2100 6662 _m
(<chr>)_S 3300 6662 _m
(the)_S 61 _t
(character)_S 2100 6446 _m
(returns)_S 3300 6446 _m
(the)_S 61 _t
(digit)_S 61 _t
(weight)_S 61 _t
(if)_S 61 _t
(character)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(digit,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 6014 _m
(\(char)_S -4 _t
(-code)_S 61 _t
(<chr>\))_S 122 _t
5767 6014 _m
(GET)_S 61 _t
(THE)_S 61 _t
(ASCII)_S 61 _t
(CODE)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(CHARACTER)_S 2100 5798 _m
(<chr>)_S 3300 5798 _m
(the)_S 61 _t
(character)_S 2100 5582 _m
(returns)_S 3300 5582 _m
(the)_S 61 _t
(ASCII)_S 61 _t
(character)_S 61 _t
(code)_S 61 _t
(\(integer)_S -7 _t
(,)_S 61 _t
(parity)_S 61 _t
(bit)_S 61 _t
(stripped\))_S 1500 5150 _m
(\(code-char)_S 61 _t
(<code>\))_S 122 _t
4616 5150 _m
(GET)_S 61 _t
(THE)_S 61 _t
(CHARACTER)_S 61 _t
(WITH)_S 61 _t
(A)_S 61 _t
(SPECFIED)_S 61 _t
(ASCII)_S 61 _t
(CODE)_S 2100 4934 _m
(<code>)_S 3300 4934 _m
(the)_S 61 _t
(ASCII)_S 61 _t
(code)_S 61 _t
(\(integer)_S -7 _t
(,)_S 61 _t
(range)_S 61 _t
(0-127\))_S 2100 4718 _m
(returns)_S 3300 4718 _m
(the)_S 61 _t
(character)_S 61 _t
(with)_S 61 _t
(that)_S 61 _t
(code)_S 61 _t
(or)_S 61 _t
(NIL)_S 1500 4286 _m
(\(char)_S -4 _t
(-upcase)_S 61 _t
(<chr>\))_S 122 _t
5617 4286 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(A)_S 61 _t
(CHARACTER)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(UPPER)_S 61 _t
(CASE)_S 2100 4070 _m
(<chr>)_S 3300 4070 _m
(the)_S 61 _t
(character)_S 2100 3854 _m
(returns)_S 3300 3854 _m
(the)_S 61 _t
(upper)_S 61 _t
(case)_S 61 _t
(character)_S 1500 3422 _m
(\(char)_S -4 _t
(-downcase)_S 61 _t
(<chr>\))_S 122 _t
5536 3422 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(A)_S 61 _t
(CHARACTER)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(LOWER)_S 61 _t
(CASE)_S 2100 3206 _m
(<chr>)_S 3300 3206 _m
(the)_S 61 _t
(character)_S 2100 2990 _m
(returns)_S 3300 2990 _m
(the)_S 61 _t
(lower)_S 61 _t
(case)_S 61 _t
(character)_S 1500 2558 _m
(\(digit-char)_S 61 _t
(<n>\))_S 122 _t
5853 2558 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(A)_S 61 _t
(DIGIT)_S 61 _t
(WEIGHT)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(DIGIT)_S 2100 2342 _m
(<n>)_S 3300 2342 _m
(the)_S 61 _t
(digit)_S 61 _t
(weight)_S 61 _t
(\(integer\))_S 2100 2126 _m
(returns)_S 3300 2126 _m
(the)_S 61 _t
(digit)_S 61 _t
(character)_S 61 _t
(or)_S 61 _t
(NIL)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4300 11867 _m
(CHARACTER)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(50)_S 1500 11235 _m
(\(char)_S -4 _t
(-int)_S 61 _t
(<chr>\))_S 61 _t
5607 11235 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(A)_S 61 _t
(CHARACTER)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(AN)_S 61 _t
(INTEGER)_S 2100 11019 _m
(<chr>)_S 3300 11019 _m
(the)_S 61 _t
(character)_S 2100 10803 _m
(returns)_S 3300 10803 _m
(the)_S 61 _t
(ASCII)_S 61 _t
(character)_S 61 _t
(code)_S 61 _t
(\(range)_S 61 _t
(0-255\))_S 1500 10371 _m
(\(int-char)_S 61 _t
(<int>\))_S 61 _t
5607 10371 _m
(CONVER)_S -11 _t
(T)_S 61 _t
(AN)_S 61 _t
(INTEGER)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(CHARACTER)_S 2100 10155 _m
(<int>)_S 3300 10155 _m
(the)_S 61 _t
(ASCII)_S 61 _t
(character)_S 61 _t
(code)_S 61 _t
(\(treated)_S 61 _t
(modulo)_S 61 _t
(256\))_S 2100 9939 _m
(returns)_S 3300 9939 _m
(the)_S 61 _t
(character)_S 61 _t
(with)_S 61 _t
(that)_S 61 _t
(code)_S 1500 9507 _m
(\(char<)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 9291 _m
(\(char<=)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 9075 _m
(\(char=)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 8859 _m
(\(char/=)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 8643 _m
(\(char>=)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 8427 _m
(\(char>)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 2100 8211 _m
(<chr1>)_S 3300 8211 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(character)_S 61 _t
(to)_S 61 _t
(compare)_S 2100 7995 _m
(<chr2>)_S 3300 7995 _m
(the)_S 61 _t
(second)_S 61 _t
(character\(s\))_S 61 _t
(to)_S 61 _t
(compare)_S 2100 7779 _m
(returns)_S 3300 7779 _m
(t)_S 61 _t
(if)_S 61 _t
(predicate)_S 61 _t
(is)_S 61 _t
(true,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 2100 7563 _m
(Note:)_S 61 _t
(case)_S 61 _t
(is)_S 61 _t
(signi\256cant)_S 61 _t
(with)_S 61 _t
(these)_S 61 _t
(comparison)_S 61 _t
(functions.)_S 1500 7131 _m
(\(char)_S -4 _t
(-lessp)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 6915 _m
(\(char)_S -4 _t
(-not-greaterp)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 6699 _m
(\(char)_S -4 _t
(-equal)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 6483 _m
(\(char)_S -4 _t
(-not-equal)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 6267 _m
(\(char)_S -4 _t
(-not-lessp)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 1500 6051 _m
(\(char)_S -4 _t
(-greaterp)_S 61 _t
(<chr1>)_S 61 _t
(<chr2>...\))_S 2100 5835 _m
(<chr1>)_S 3300 5835 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(string)_S 61 _t
(to)_S 61 _t
(compare)_S 2100 5619 _m
(<chr2>)_S 3300 5619 _m
(the)_S 61 _t
(second)_S 61 _t
(string\(s\))_S 61 _t
(to)_S 61 _t
(compare)_S 2100 5403 _m
(returns)_S 3300 5403 _m
(t)_S 61 _t
(if)_S 61 _t
(predicate)_S 61 _t
(is)_S 61 _t
(true,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 2100 5187 _m
(Note:)_S 61 _t
(case)_S 61 _t
(is)_S 61 _t
(not)_S 61 _t
(signi\256cant)_S 61 _t
(with)_S 61 _t
(these)_S 61 _t
(comparison)_S 61 _t
(functions.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4320 11867 _m
(STRUCTURE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(51)_S 1500 10986 _m
/HelveticaR 660 _ff
(STRUCTURE)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(XLISP)_S 64 _t
(provides)_S 64 _t
(a)_S 64 _t
(subset)_S 63 _t
(of)_S 64 _t
(the)_S 64 _t
(Common)_S 64 _t
(Lisp)_S 64 _t
(structure)_S 64 _t
(de\256nition)_S 64 _t
(facility)_S -12 _t
(.)_S 64 _t
(No)_S 64 _t
(slot)_S 63 _t
(options)_S 64 _t
(are)_S 64 _t
(allowed,)_S 1500 10334 _m
(but)_S 61 _t
(slots)_S 61 _t
(can)_S 61 _t
(have)_S 61 _t
(default)_S 61 _t
(initialization)_S 61 _t
(expressions.)_S 2100 9902 _m
(\(defstruct)_S 61 _t
(name)_S 61 _t
(<slot-desc>...\))_S 1500 9686 _m
(or)_S 2100 9470 _m
(\(defstruct)_S 61 _t
(\(name)_S 61 _t
(<option>...\))_S 61 _t
(<slot-desc>...\))_S 3300 9254 _m
(fsubr)_S 3300 9038 _m
(<name>)_S 5700 9038 _m
(the)_S 61 _t
(structure)_S 61 _t
(name)_S 61 _t
(symbol)_S 61 _t
(\(quoted\))_S 3300 8822 _m
(<option>)_S 5700 8822 _m
(option)_S 61 _t
(description)_S 61 _t
(\(quoted\))_S 3300 8606 _m
(<slot-desc>)_S 5700 8606 _m
(slot)_S 61 _t
(descriptions)_S 61 _t
(\(quoted\))_S 1500 8390 _m
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
3300 8390 _m
(returns)_S 5700 8390 _m
(the)_S 61 _t
(structure)_S 61 _t
(name)_S 1500 7958 _m
(The)_S 61 _t
(recognized)_S 61 _t
(options)_S 61 _t
(are:)_S 2100 7526 _m
(\(:conc-name)_S 61 _t
(name\))_S 2100 7310 _m
(\(:include)_S 61 _t
(name)_S 61 _t
([<slot-desc>...]\))_S 1500 6878 _m
(Note)_S 61 _t
(that)_S 61 _t
(if)_S 61 _t
(:CONC-NAME)_S 61 _t
(appears,)_S 61 _t
(it)_S 61 _t
(should)_S 61 _t
(be)_S 61 _t
(before)_S 61 _t
(:INCLUDE.)_S 1500 6446 _m
(Each)_S 61 _t
(slot)_S 61 _t
(description)_S 61 _t
(takes)_S 61 _t
(the)_S 61 _t
(form:)_S 2100 6014 _m
(<name>)_S 1500 5798 _m
(or)_S 2100 5582 _m
(\(<name>)_S 61 _t
(<defexpr>\))_S 1500 5150 _m
(If)_S 65 _t
(the)_S 66 _t
(default)_S 65 _t
(initialization)_S 66 _t
(expression)_S 65 _t
(is)_S 66 _t
(not)_S 65 _t
(speci\256ed,)_S 66 _t
(the)_S 66 _t
(slot)_S 65 _t
(will)_S 66 _t
(be)_S 65 _t
(initialized)_S 66 _t
(to)_S 65 _t
(NIL)_S 66 _t
(if)_S 65 _t
(no)_S 66 _t
(keyword)_S 1500 4934 _m
(ar)_S -3 _t
(gument)_S 61 _t
(is)_S 61 _t
(passed)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(creation)_S 61 _t
(function.)_S 1500 4502 _m
(DEFSTRUCT)_S 50 _t
(causes)_S 49 _t
(access)_S 50 _t
(functions)_S 50 _t
(to)_S 49 _t
(be)_S 50 _t
(created)_S 50 _t
(for)_S 49 _t
(each)_S 50 _t
(of)_S 50 _t
(the)_S 50 _t
(slots)_S 49 _t
(and)_S 50 _t
(also)_S 50 _t
(arranges)_S 49 _t
(that)_S 50 _t
(SETF)_S 50 _t
(will)_S 1500 4286 _m
(work)_S 44 _t
(with)_S 44 _t
(those)_S 44 _t
(access)_S 44 _t
(functions.)_S 44 _t
(The)_S 44 _t
(access)_S 45 _t
(function)_S 44 _t
(names)_S 44 _t
(are)_S 44 _t
(constructed)_S 44 _t
(by)_S 44 _t
(taking)_S 44 _t
(the)_S 44 _t
(structure)_S 45 _t
(name,)_S 1500 4070 _m
(appending)_S 61 _t
(a)_S 62 _t
('-')_S 61 _t
(and)_S 61 _t
(then)_S 62 _t
(appending)_S 61 _t
(the)_S 61 _t
(slot)_S 62 _t
(name.)_S 61 _t
(This)_S 61 _t
(can)_S 62 _t
(be)_S 61 _t
(overridden)_S 62 _t
(by)_S 61 _t
(using)_S 61 _t
(the)_S 62 _t
(:CONC-NAME)_S 1500 3854 _m
(option.)_S 1500 3422 _m
(DEFSTRUCT)_S 102 _t
(also)_S 102 _t
(makes)_S 102 _t
(a)_S 102 _t
(creation)_S 102 _t
(function)_S 102 _t
(called)_S 102 _t
(MAKE-<structname>,)_S 102 _t
(a)_S 102 _t
(copy)_S 102 _t
(function)_S 102 _t
(called)_S 1500 3206 _m
(COPY)_S -20 _t
(-<structname>)_S 44 _t
(and)_S 44 _t
(a)_S 44 _t
(predicate)_S 45 _t
(function)_S 44 _t
(called)_S 44 _t
(<structname>-P)_S -20 _t
(.)_S 45 _t
(The)_S 44 _t
(creation)_S 44 _t
(function)_S 44 _t
(takes)_S 45 _t
(keyword)_S 1500 2990 _m
(ar)_S -3 _t
(guments)_S 61 _t
(for)_S 61 _t
(each)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(slots.)_S 61 _t
(Structures)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(created)_S 61 _t
(using)_S 61 _t
(the)_S 61 _t
(#S\()_S 61 _t
(read)_S 61 _t
(macro,)_S 61 _t
(as)_S 61 _t
(well.)_S 1500 2558 _m
(The)_S 58 _t
(property)_S 58 _t
(*struct-slots*)_S 58 _t
(is)_S 59 _t
(added)_S 58 _t
(to)_S 58 _t
(the)_S 58 _t
(symbol)_S 58 _t
(that)_S 58 _t
(names)_S 59 _t
(the)_S 58 _t
(structure.)_S 58 _t
(This)_S 58 _t
(property)_S 58 _t
(consists)_S 59 _t
(of)_S 58 _t
(an)_S 1500 2342 _m
(association)_S 81 _t
(list)_S 80 _t
(of)_S 81 _t
(slot)_S 81 _t
(names)_S 81 _t
(and)_S 81 _t
(closures)_S 81 _t
(that)_S 80 _t
(evaluate)_S 81 _t
(to)_S 81 _t
(the)_S 81 _t
(initial)_S 81 _t
(values)_S 81 _t
(\(NIL)_S 80 _t
(if)_S 81 _t
(no)_S 81 _t
(initial)_S 81 _t
(value)_S 1500 2126 _m
(expression\).)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4320 11867 _m
(STRUCTURE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(52)_S 1500 11235 _m
(For)_S 61 _t
(instance:)_S 2100 10803 _m
(\(defstruct)_S 61 _t
(foo)_S 61 _t
(bar)_S 61 _t
(\(gag)_S 61 _t
(2\)\))_S 1500 10371 _m
(creates)_S 61 _t
(the)_S 61 _t
(following)_S 61 _t
(functions:)_S 2100 9939 _m
(\(foo-bar)_S 61 _t
(<expr>\))_S 2100 9723 _m
(\(setf)_S 61 _t
(\(foo-bar)_S 61 _t
(<expr>\))_S 61 _t
(<value>\))_S 2100 9507 _m
(\(foo-gag)_S 61 _t
(<expr>\))_S 2100 9291 _m
(\(setf)_S 61 _t
(\(foo-gag)_S 61 _t
(<expr>\))_S 61 _t
(<value>\))_S 2100 9075 _m
(\(make-foo)_S 61 _t
(&key)_S 61 _t
(:bar)_S 61 _t
(:gag\))_S 2100 8859 _m
(\(copy-foo)_S 61 _t
(<expr>\))_S 2100 8643 _m
(\(foo-p)_S 61 _t
(<expr>\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4519 11867 _m
(OBJECT)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(53)_S 1500 10986 _m
/HelveticaR 660 _ff
(OBJECT)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(Note)_S 61 _t
(that)_S 61 _t
(the)_S 61 _t
(functions)_S 61 _t
(provided)_S 61 _t
(in)_S 61 _t
(classes.lsp)_S 61 _t
(are)_S 61 _t
(useful)_S 61 _t
(but)_S 61 _t
(not)_S 61 _t
(necessary)_S -12 _t
(.)_S 1500 10118 _m
(Messages)_S 61 _t
(de\256ned)_S 61 _t
(for)_S 61 _t
(Object)_S 61 _t
(and)_S 61 _t
(Class)_S 61 _t
(are)_S 61 _t
(listed)_S 61 _t
(starting)_S 61 _t
(on)_S 61 _t
(page)_S 61 _t
(17.)_S 1500 9686 _m
(\(send)_S 61 _t
(<object>)_S 61 _t
(<message>)_S 61 _t
([<ar)_S -3 _t
(gs>...]\))_S 7711 9686 _m
(SEND)_S 61 _t
(A)_S 61 _t
(MESSAGE)_S 2100 9470 _m
(<object>)_S 3300 9470 _m
(the)_S 61 _t
(object)_S 61 _t
(to)_S 61 _t
(receive)_S 61 _t
(the)_S 61 _t
(message)_S 2100 9254 _m
(<message>)_S 3300 9254 _m
(message)_S 61 _t
(sent)_S 61 _t
(to)_S 61 _t
(object)_S 2100 9038 _m
(<ar)_S -3 _t
(gs>)_S 3300 9038 _m
(ar)_S -3 _t
(guments)_S 61 _t
(to)_S 61 _t
(method)_S 61 _t
(\(if)_S 61 _t
(any\))_S 2100 8822 _m
(returns)_S 3300 8822 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(method)_S 1500 8390 _m
(\(send-super)_S 61 _t
(<message>)_S 61 _t
([<ar)_S -3 _t
(gs>]\))_S 6207 8390 _m
(SEND)_S 61 _t
(A)_S 61 _t
(MESSAGE)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(SUPERCLASS)_S 2100 8174 _m
(valid)_S 61 _t
(only)_S 61 _t
(in)_S 61 _t
(method)_S 61 _t
(context)_S 2100 7958 _m
(<message>)_S 3300 7958 _m
(message)_S 61 _t
(sent)_S 61 _t
(to)_S 61 _t
(method's)_S 61 _t
(superclass)_S 2100 7742 _m
(<ar)_S -3 _t
(gs>)_S 3300 7742 _m
(ar)_S -3 _t
(guments)_S 61 _t
(to)_S 61 _t
(method)_S 61 _t
(\(if)_S 61 _t
(any\))_S 2100 7526 _m
(returns)_S 3300 7526 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(method)_S 1500 7094 _m
(\(defclass)_S 61 _t
(<sym>)_S 61 _t
(<ivars>)_S 61 _t
([<cvars>)_S 61 _t
([<super>]]\))_S 7345 7094 _m
(DEFINE)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(CLASS)_S 2100 6878 _m
(de\256ned)_S 61 _t
(in)_S 61 _t
(class.lsp)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(macro)_S 2100 6662 _m
(<sym>)_S 3300 6662 _m
(symbol)_S 61 _t
(whose)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(class)_S 61 _t
(object)_S 61 _t
(\(quoted\))_S 2100 6446 _m
(<ivars>)_S 3300 6446 _m
(list)_S 50 _t
(of)_S 51 _t
(instance)_S 50 _t
(variables)_S 51 _t
(\(quoted\).)_S 50 _t
(Instance)_S 50 _t
(variables)_S 51 _t
(speci\256ed)_S 50 _t
(either)_S 50 _t
(as)_S 51 _t
(<ivar>)_S 50 _t
(or)_S 3300 6230 _m
(\(<ivar>)_S 61 _t
(<init>\))_S 61 _t
(to)_S 61 _t
(specify)_S 61 _t
(non-NIL)_S 61 _t
(default)_S 61 _t
(initial)_S 61 _t
(value.)_S 2100 6014 _m
(<cvars>)_S 3300 6014 _m
(list)_S 61 _t
(of)_S 61 _t
(class)_S 61 _t
(variables)_S 61 _t
(\(quoted\))_S 2100 5798 _m
(<super>)_S 3300 5798 _m
(superclass,)_S 61 _t
(or)_S 61 _t
(Object)_S 61 _t
(if)_S 61 _t
(absent.)_S 2100 5582 _m
(This)_S 58 _t
(function)_S 57 _t
(sends)_S 57 _t
(:SET)_S -17 _t
(-PNAME)_S 57 _t
(\(de\256ned)_S 57 _t
(in)_S 57 _t
(classes.lsp\))_S 57 _t
(to)_S 57 _t
(the)_S 58 _t
(new)_S 57 _t
(class)_S 57 _t
(to)_S 57 _t
(set)_S 57 _t
(the)_S 57 _t
(class')_S 57 _t
(print)_S 2100 5366 _m
(name)_S 61 _t
(instance)_S 61 _t
(variable.)_S 2100 5150 _m
(Methods)_S 61 _t
(de\256ned)_S 61 _t
(for)_S 61 _t
(classes)_S 61 _t
(de\256ned)_S 61 _t
(with)_S 61 _t
(defclass:)_S 2100 4934 _m
(\(send)_S 61 _t
(<object>)_S 61 _t
(:<ivar>\))_S 3300 4718 _m
(Returns)_S 61 _t
(the)_S 61 _t
(speci\256ed)_S 61 _t
(instance)_S 61 _t
(variable)_S 2100 4502 _m
(\(send)_S 61 _t
(<object>)_S 61 _t
(:SET)_S -17 _t
(-IV)_S -23 _t
(AR)_S 61 _t
(<ivar>)_S 61 _t
(<value>\))_S 3300 4286 _m
(Used)_S 61 _t
(to)_S 61 _t
(set)_S 61 _t
(an)_S 61 _t
(instance)_S 61 _t
(variable,)_S 61 _t
(typically)_S 61 _t
(with)_S 61 _t
(setf.)_S 2100 4070 _m
(\(send)_S 61 _t
(<sym>)_S 61 _t
(:NEW)_S 61 _t
({:<ivar>)_S 61 _t
(<init>}\))_S 3300 3854 _m
(Actually)_S 48 _t
(de\256nition)_S 48 _t
(for)_S 48 _t
(:ISNEW)_S -17 _t
(.)_S 48 _t
(Creates)_S 48 _t
(new)_S 48 _t
(object)_S 48 _t
(initializing)_S 48 _t
(instance)_S 47 _t
(variables)_S 3300 3638 _m
(as)_S 75 _t
(speci\256ed)_S 75 _t
(in)_S 75 _t
(keyword)_S 74 _t
(ar)_S -3 _t
(guments,)_S 75 _t
(or)_S 75 _t
(to)_S 75 _t
(their)_S 75 _t
(default)_S 75 _t
(if)_S 75 _t
(keyword)_S 75 _t
(ar)_S -3 _t
(gument)_S 75 _t
(is)_S 3300 3422 _m
(missing.)_S 61 _t
(Returns)_S 61 _t
(the)_S 61 _t
(object.)_S 1500 2990 _m
(\(defmethod)_S 61 _t
(<class>)_S 61 _t
(<sym>)_S 61 _t
(<far)_S -3 _t
(gs>)_S 61 _t
(<expr>)_S 61 _t
(...\))_S 7131 2990 _m
(DEFINE)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(METHOD)_S 2100 2774 _m
(de\256ned)_S 61 _t
(in)_S 61 _t
(class.lsp)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(macro)_S 2100 2558 _m
(<class>)_S 3300 2558 _m
(Class)_S 61 _t
(which)_S 61 _t
(will)_S 61 _t
(respond)_S 61 _t
(to)_S 61 _t
(message)_S 2100 2342 _m
(<sym>)_S 3300 2342 _m
(Message)_S 61 _t
(name)_S 61 _t
(\(quoted\))_S 2100 2126 _m
(<far)_S -3 _t
(gs>)_S 3300 2126 _m
(Formal)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list.)_S 61 _t
(Leading)_S 61 _t
("self")_S 61 _t
(is)_S 61 _t
(implied)_S 61 _t
(\(quoted\))_S 2100 1910 _m
(<expr>)_S 3300 1910 _m
(Expressions)_S 61 _t
(constituting)_S 61 _t
(body)_S 61 _t
(of)_S 61 _t
(method)_S 61 _t
(\(quoted\))_S 2100 1694 _m
(returns)_S 3300 1694 _m
(the)_S 61 _t
(class)_S 61 _t
(object.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4519 11867 _m
(OBJECT)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(54)_S 1500 11235 _m
(\(de\256nst)_S 61 _t
(<class>)_S 61 _t
(<sym>)_S 61 _t
([<ar)_S -3 _t
(gs>...]\))_S 6220 11235 _m
(DEFINE)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(GLOBAL)_S 61 _t
(INST)_S -15 _t
(ANCE)_S 2100 11019 _m
(de\256ned)_S 61 _t
(in)_S 61 _t
(class.lsp)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(macro)_S 2100 10803 _m
(<class>)_S 3300 10803 _m
(Class)_S 61 _t
(of)_S 61 _t
(new)_S 61 _t
(object)_S 2100 10587 _m
(<sym>)_S 3300 10587 _m
(Symbol)_S 61 _t
(whose)_S 61 _t
(value)_S 61 _t
(will)_S 61 _t
(be)_S 61 _t
(set)_S 61 _t
(to)_S 61 _t
(new)_S 61 _t
(object)_S 2100 10371 _m
(<ar)_S -3 _t
(gs>)_S 3300 10371 _m
(Ar)_S -3 _t
(guments)_S 61 _t
(passed)_S 61 _t
(to)_S 61 _t
(:NEW)_S 61 _t
(\(typically)_S 61 _t
(initial)_S 61 _t
(values)_S 61 _t
(for)_S 61 _t
(instance)_S 61 _t
(variables\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4351 11867 _m
(PREDICATE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(55)_S 1500 10986 _m
/HelveticaR 660 _ff
(PREDICA)_S -15 _t
(TE)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(atom)_S 61 _t
(<expr>\))_S 122 _t
7684 10550 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(AN)_S 61 _t
(A)_S -20 _t
(T)_S -3 _t
(OM?)_S 2100 10334 _m
(<expr>)_S 3300 10334 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 10118 _m
(returns)_S 3300 10118 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(an)_S 61 _t
(atom,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 9686 _m
(\(symbolp)_S 61 _t
(<expr>\))_S 122 _t
7569 9686 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(SYMBOL?)_S 2100 9470 _m
(<expr>)_S 3300 9470 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 9254 _m
(returns)_S 3300 9254 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(expression)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(symbol,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 8822 _m
(\(numberp)_S 61 _t
(<expr>\))_S 122 _t
7549 8822 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(NUMBER?)_S 2100 8606 _m
(<expr>)_S 3300 8606 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 8390 _m
(returns)_S 3300 8390 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(expression)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(number)_S -7 _t
(,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 7958 _m
(\(null)_S 61 _t
(<expr>\))_S 122 _t
7131 7958 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(AN)_S 61 _t
(EMPTY)_S 61 _t
(LIST?)_S 2100 7742 _m
(<expr>)_S 3300 7742 _m
(the)_S 61 _t
(list)_S 61 _t
(to)_S 61 _t
(check)_S 2100 7526 _m
(returns)_S 3300 7526 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(is)_S 61 _t
(empty)_S -12 _t
(,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 7094 _m
(\(not)_S 61 _t
(<expr>\))_S 122 _t
7979 7094 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(F)_S -13 _t
(ALSE?)_S 2100 6878 _m
(<expr>)_S 3300 6878 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 6662 _m
(return)_S 3300 6662 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(NIL,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 6230 _m
(\(listp)_S 61 _t
(<expr>\))_S 122 _t
7946 6230 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(LIST?)_S 2100 6014 _m
(<expr>)_S 3300 6014 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 5798 _m
(returns)_S 3300 5798 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(cons)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 5366 _m
(\(endp)_S 61 _t
(<list>\))_S 122 _t
6795 5366 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(THE)_S 61 _t
(END)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST?)_S 2100 5150 _m
(<list>)_S 3300 5150 _m
(the)_S 61 _t
(list)_S 2100 4934 _m
(returns)_S 3300 4934 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(NIL,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 4502 _m
(\(consp)_S 61 _t
(<expr>\))_S 122 _t
6805 4502 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(NON-EMPTY)_S 61 _t
(LIST?)_S 2100 4286 _m
(<expr>)_S 3300 4286 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 4070 _m
(returns)_S 3300 4070 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(cons,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 3638 _m
(\(constantp)_S 61 _t
(<expr>\))_S 7370 3638 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(CONST)_S -15 _t
(ANT?)_S 2100 3422 _m
(<expr>)_S 3300 3422 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 3206 _m
(returns)_S 3300 3206 _m
(t)_S 59 _t
(if)_S 59 _t
(the)_S 60 _t
(value)_S 59 _t
(is)_S 60 _t
(a)_S 59 _t
(constant)_S 60 _t
(\(basically)_S -12 _t
(,)_S 59 _t
(would)_S 59 _t
(EV)_S -23 _t
(AL)_S 59 _t
(<expr>)_S 60 _t
(repeatedly)_S 59 _t
(return)_S 60 _t
(the)_S 3300 2990 _m
(same)_S 61 _t
(thing?\),)_S 61 _t
(NIL)_S 61 _t
(otherwise.)_S 1500 2558 _m
(\(integerp)_S 61 _t
(<expr>\))_S 122 _t
7416 2558 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(AN)_S 61 _t
(INTEGER?)_S 2100 2342 _m
(<expr>)_S 3300 2342 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 2126 _m
(returns)_S 3300 2126 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(an)_S 61 _t
(integer)_S -7 _t
(,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4351 11867 _m
(PREDICATE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(56)_S 1500 11235 _m
(\(\257oatp)_S 61 _t
(<expr>\))_S 122 _t
7762 11235 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(FLOA)_S -20 _t
(T?)_S 2100 11019 _m
(<expr>)_S 3300 11019 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 10803 _m
(returns)_S 3300 10803 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(\257oat,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 10371 _m
(\(rationalp)_S 61 _t
(<expr>\))_S 6571 10371 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(RA)_S -20 _t
(TIONAL)_S 61 _t
(NUMBER?)_S 2100 10155 _m
(Part)_S 61 _t
(of)_S 61 _t
(math)_S 61 _t
(extension.)_S 2100 9939 _m
(<expr>)_S 3300 9939 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 9723 _m
(returns)_S 3300 9723 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(rational)_S 61 _t
(\(integer)_S 61 _t
(or)_S 61 _t
(ratio\),)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 9291 _m
(\(complexp)_S 61 _t
(<expr>\))_S 6612 9291 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(COMPLEX)_S 61 _t
(NUMBER?)_S 2100 9075 _m
(Part)_S 61 _t
(of)_S 61 _t
(math)_S 61 _t
(extension.)_S 2100 8859 _m
(<expr>)_S 3300 8859 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 8643 _m
(returns)_S 3300 8643 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(complex)_S 61 _t
(number)_S -7 _t
(,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 8211 _m
(\(stringp)_S 61 _t
(<expr>\))_S 122 _t
7671 8211 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(STRING?)_S 2100 7995 _m
(<expr>)_S 3300 7995 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 7779 _m
(returns)_S 3300 7779 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(string,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 7347 _m
(\(characterp)_S 61 _t
(<expr>\))_S 122 _t
7223 7347 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(CHARACTER?)_S 2100 7131 _m
(<expr>)_S 3300 7131 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 6915 _m
(returns)_S 3300 6915 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(character)_S -7 _t
(,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 6483 _m
(\(arrayp)_S 61 _t
(<expr>\))_S 122 _t
7576 6483 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(AN)_S 61 _t
(ARRA)_S -17 _t
(Y?)_S 2100 6267 _m
(<expr>)_S 3300 6267 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 6051 _m
(returns)_S 3300 6051 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(an)_S 61 _t
(array)_S -12 _t
(,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 5619 _m
(\(streamp)_S 61 _t
(<expr>\))_S 122 _t
7589 5619 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(STREAM?)_S 2100 5403 _m
(<expr>)_S 3300 5403 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 5187 _m
(returns)_S 3300 5187 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(stream,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 4755 _m
(\(open-stream-p)_S 61 _t
(<stream>\))_S 7711 4755 _m
(IS)_S 61 _t
(STREAM)_S 61 _t
(OPEN?)_S 2100 4539 _m
(<stream>)_S 3300 4539 _m
(the)_S 61 _t
(stream)_S 2100 4323 _m
(returns)_S 3300 4323 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(stream)_S 61 _t
(is)_S 61 _t
(open,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 3891 _m
(\(input-stream-p)_S 61 _t
(<stream>\))_S 7212 3891 _m
(IS)_S 61 _t
(STREAM)_S 61 _t
(READABLE?)_S 2100 3675 _m
(<stream>)_S 3300 3675 _m
(the)_S 61 _t
(stream)_S 2100 3459 _m
(returns)_S 3300 3459 _m
(t)_S 61 _t
(if)_S 61 _t
(stream)_S 61 _t
(is)_S 61 _t
(readable,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 3027 _m
(\(output-stream-p)_S 61 _t
(<stream>\))_S 7258 3027 _m
(IS)_S 61 _t
(STREAM)_S 61 _t
(WRIT)_S -15 _t
(ABLE?)_S 2100 2811 _m
(<stream>)_S 3300 2811 _m
(the)_S 61 _t
(stream)_S 2100 2595 _m
(returns)_S 3300 2595 _m
(t)_S 61 _t
(if)_S 61 _t
(stream)_S 61 _t
(is)_S 61 _t
(writable,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 2163 _m
(\(objectp)_S 61 _t
(<expr>\))_S 122 _t
7528 2163 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(AN)_S 61 _t
(OBJECT?)_S 2100 1947 _m
(<expr>)_S 3300 1947 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 1731 _m
(returns)_S 3300 1731 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(an)_S 61 _t
(object,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4351 11867 _m
(PREDICATE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(57)_S 1500 11235 _m
(\(classp)_S 61 _t
(<expr>\))_S 7029 11235 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(CLASS)_S 61 _t
(OBJECT?)_S 2100 11019 _m
(<expr>)_S 3300 11019 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 10803 _m
(returns)_S 3300 10803 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(a)_S 61 _t
(class)_S 61 _t
(object,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 10371 _m
(\(boundp)_S 61 _t
(<sym>\))_S 122 _t
5895 10371 _m
(IS)_S 61 _t
(A)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(BOUND)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(THIS)_S 61 _t
(SYMBOL?)_S 2100 10155 _m
(<sym>)_S 3300 10155 _m
(the)_S 61 _t
(symbol)_S 2100 9939 _m
(returns)_S 3300 9939 _m
(t)_S 61 _t
(if)_S 61 _t
(a)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(symbol,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 9507 _m
(\(fboundp)_S 61 _t
(<sym>\))_S 122 _t
4663 9507 _m
(IS)_S 61 _t
(A)_S 61 _t
(FUNCTIONAL)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(BOUND)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(THIS)_S 61 _t
(SYMBOL?)_S 2100 9291 _m
(<sym>)_S 3300 9291 _m
(the)_S 61 _t
(symbol)_S 2100 9075 _m
(returns)_S 3300 9075 _m
(t)_S 61 _t
(if)_S 61 _t
(a)_S 61 _t
(functional)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(symbol,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 8643 _m
(\(functionp)_S 61 _t
(<sym>\))_S 7406 8643 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(FUNCTION?)_S 2100 8427 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 8211 _m
(<expr>)_S 3300 8211 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(check)_S 2100 7995 _m
(returns)_S 3300 7995 _m
(t)_S 60 _t
(if)_S 60 _t
(the)_S 60 _t
(value)_S 60 _t
(is)_S 61 _t
(a)_S 60 _t
(function)_S 60 _t
(--)_S 60 _t
(that)_S 61 _t
(is,)_S 60 _t
(can)_S 60 _t
(it)_S 60 _t
(be)_S 61 _t
(applied)_S 60 _t
(to)_S 60 _t
(ar)_S -3 _t
(guments.)_S 60 _t
(This)_S 60 _t
(is)_S 61 _t
(true)_S 3300 7779 _m
(for)_S 49 _t
(any)_S 48 _t
(symbol)_S 49 _t
(\(even)_S 49 _t
(those)_S 48 _t
(with)_S 49 _t
(no)_S 49 _t
(function)_S 48 _t
(binding\),)_S 49 _t
(list)_S 49 _t
(with)_S 49 _t
(car)_S 48 _t
(being)_S 49 _t
(lambda,)_S 3300 7563 _m
(a)_S 61 _t
(closure,)_S 61 _t
(or)_S 61 _t
(subr)_S -10 _t
(.)_S 61 _t
(Otherwise)_S 61 _t
(returns)_S 61 _t
(NIL.)_S 1500 7131 _m
(\(minusp)_S 61 _t
(<expr>\))_S 122 _t
6774 7131 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(NUMBER)_S 61 _t
(NEGA)_S -20 _t
(TIVE?)_S 2100 6915 _m
(<expr>)_S 3300 6915 _m
(the)_S 61 _t
(number)_S 61 _t
(to)_S 61 _t
(test)_S 2100 6699 _m
(returns)_S 3300 6699 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(number)_S 61 _t
(is)_S 61 _t
(negative,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 6267 _m
(\(zerop)_S 61 _t
(<expr>\))_S 122 _t
7202 6267 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(NUMBER)_S 61 _t
(ZERO?)_S 2100 6051 _m
(<expr>)_S 3300 6051 _m
(the)_S 61 _t
(number)_S 61 _t
(to)_S 61 _t
(test)_S 2100 5835 _m
(returns)_S 3300 5835 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(number)_S 61 _t
(is)_S 61 _t
(zero,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 5403 _m
(\(plusp)_S 61 _t
(<expr>\))_S 122 _t
6866 5403 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(NUMBER)_S 61 _t
(POSITIVE?)_S 2100 5187 _m
(<expr>)_S 3300 5187 _m
(the)_S 61 _t
(number)_S 61 _t
(to)_S 61 _t
(test)_S 2100 4971 _m
(returns)_S 3300 4971 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(number)_S 61 _t
(is)_S 61 _t
(positive,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 4539 _m
(\(evenp)_S 61 _t
(<expr>\))_S 122 _t
7192 4539 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(INTEGER)_S 61 _t
(EVEN?)_S 2100 4323 _m
(<expr>)_S 3300 4323 _m
(the)_S 61 _t
(integer)_S 61 _t
(to)_S 61 _t
(test)_S 2100 4107 _m
(returns)_S 3300 4107 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(integer)_S 61 _t
(is)_S 61 _t
(even,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 3675 _m
(\(oddp)_S 61 _t
(<expr>\))_S 122 _t
7284 3675 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(INTEGER)_S 61 _t
(ODD?)_S 2100 3459 _m
(<expr>)_S 3300 3459 _m
(the)_S 61 _t
(integer)_S 61 _t
(to)_S 61 _t
(test)_S 2100 3243 _m
(returns)_S 3300 3243 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(integer)_S 61 _t
(is)_S 61 _t
(odd,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 2811 _m
(\(subsetp)_S 61 _t
(<list1>)_S 61 _t
(<list2>)_S 61 _t
(&key)_S 61 _t
(:test)_S 61 _t
(:test-not)_S 61 _t
(:key\))_S 7732 2811 _m
(IS)_S 61 _t
(SET)_S 61 _t
(A)_S 61 _t
(SUBSET?)_S 2100 2595 _m
(<list1>)_S 3300 2595 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(list)_S 2100 2379 _m
(<list2>)_S 3300 2379 _m
(the)_S 61 _t
(second)_S 61 _t
(list)_S 2100 2163 _m
(:test)_S 3300 2163 _m
(test)_S 61 _t
(function)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(eql\))_S 2100 1947 _m
(:test-not)_S 3300 1947 _m
(test)_S 61 _t
(function)_S 61 _t
(\(sense)_S 61 _t
(inverted\))_S 2100 1731 _m
(:key)_S 3300 1731 _m
(function)_S 61 _t
(to)_S 61 _t
(apply)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(function)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(identity\))_S 2100 1515 _m
(returns)_S 3300 1515 _m
(t)_S 61 _t
(if)_S 61 _t
(every)_S 61 _t
(element)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(\256rst)_S 61 _t
(list)_S 61 _t
(is)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(second)_S 61 _t
(list,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4351 11867 _m
(PREDICATE)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(58)_S 1500 11235 _m
(\(eq)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 122 _t
6479 11235 _m
(ARE)_S 61 _t
(THE)_S 61 _t
(EXPRESSIONS)_S 61 _t
(EQUAL?)_S 1500 11019 _m
(\(eql)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 1500 10803 _m
(\(equal)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 1500 10587 _m
(\(equalp)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>\))_S 2100 10371 _m
(equalp)_S 61 _t
(de\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 2100 10155 _m
(<expr1>)_S 3300 10155 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(expression)_S 2100 9939 _m
(<expr2>)_S 3300 9939 _m
(the)_S 61 _t
(second)_S 61 _t
(expression)_S 2100 9723 _m
(returns)_S 3300 9723 _m
(t)_S 60 _t
(if)_S 61 _t
(equal,)_S 61 _t
(NIL)_S 61 _t
(otherwise.)_S 60 _t
(Each)_S 61 _t
(is)_S 60 _t
(progressively)_S 61 _t
(more)_S 61 _t
(liberal)_S 61 _t
(in)_S 60 _t
(what)_S 61 _t
(is)_S 61 _t
("equal":)_S 3300 9507 _m
(eq:)_S 82 _t
(identical)_S 82 _t
(pointers)_S 82 _t
(--)_S 81 _t
(works)_S 82 _t
(with)_S 82 _t
(characters,)_S 81 _t
(symbols,)_S 82 _t
(and)_S 82 _t
(arbitrarily)_S 81 _t
(small)_S 4500 9291 _m
(integers)_S 3300 9075 _m
(eql:)_S 61 _t
(works)_S 61 _t
(with)_S 61 _t
(all)_S 61 _t
(numbers,)_S 61 _t
(if)_S 61 _t
(same)_S 61 _t
(type)_S 61 _t
(\(see)_S 61 _t
(also)_S 61 _t
(=)_S 61 _t
(on)_S 61 _t
(page)_S 61 _t
(45\))_S 3300 8859 _m
(equal:)_S 61 _t
(lists)_S 61 _t
(and)_S 61 _t
(strings)_S 3300 8643 _m
(equalp:)_S 93 _t
(case)_S 93 _t
(insensitive)_S 93 _t
(characters)_S 93 _t
(\(and)_S 93 _t
(strings\),)_S 93 _t
(numbers)_S 93 _t
(of)_S 93 _t
(differing)_S 93 _t
(types,)_S 4500 8427 _m
(arrays)_S 56 _t
(\(which)_S 56 _t
(can)_S 56 _t
(be)_S 56 _t
(equalp)_S 56 _t
(to)_S 55 _t
(string)_S 56 _t
(containing)_S 56 _t
(same)_S 56 _t
(elements\))_S 1500 7995 _m
(\(typep)_S 61 _t
(<expr>)_S 61 _t
(<type>\))_S 6907 7995 _m
(IS)_S 61 _t
(THIS)_S 61 _t
(A)_S 61 _t
(SPECIFIED)_S 61 _t
(TYPE?)_S 2100 7779 _m
(<expr>)_S 3300 7779 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(test)_S 2100 7563 _m
(<type>)_S 3300 7563 _m
(the)_S 71 _t
(type)_S 71 _t
(speci\256er)_S -10 _t
(.)_S 71 _t
(Symbols)_S 71 _t
(can)_S 71 _t
(either)_S 71 _t
(be)_S 71 _t
(one)_S 71 _t
(of)_S 71 _t
(those)_S 71 _t
(listed)_S 71 _t
(under)_S 71 _t
(type-of)_S 71 _t
(\(on)_S 3300 7347 _m
(page)_S 61 _t
(78\))_S 61 _t
(or)_S 61 _t
(one)_S 61 _t
(of:)_S 3300 7131 _m
(A)_S -20 _t
(T)_S -3 _t
(OM)_S 4500 7131 _m
(any)_S 61 _t
(atom)_S 3300 6915 _m
(NULL)_S 4500 6915 _m
(NIL)_S 3300 6699 _m
(LIST)_S 4500 6699 _m
(matches)_S 61 _t
(NIL)_S 61 _t
(or)_S 61 _t
(any)_S 61 _t
(cons)_S 61 _t
(cell)_S 3300 6483 _m
(STREAM)_S 4500 6483 _m
(any)_S 61 _t
(stream)_S 3300 6267 _m
(NUMBER)_S 4500 6267 _m
(any)_S 61 _t
(number)_S 61 _t
(type)_S 3300 6051 _m
(RA)_S -20 _t
(TIONAL)_S 4500 6051 _m
(\256xnum)_S 61 _t
(or)_S 61 _t
(ratio)_S 61 _t
(\(math)_S 61 _t
(extension\))_S 3300 5835 _m
(STRUCT)_S 4500 5835 _m
(any)_S 61 _t
(structure)_S 61 _t
(\(except)_S 61 _t
(hash-table\))_S 3300 5619 _m
(FUNCTION)_S 4500 5619 _m
(any)_S 61 _t
(function,)_S 61 _t
(as)_S 61 _t
(de\256ned)_S 61 _t
(by)_S 61 _t
(functionp)_S 61 _t
(\(page)_S 61 _t
(57\))_S 3300 5403 _m
(The)_S 71 _t
(specifer)_S 71 _t
(can)_S 72 _t
(also)_S 71 _t
(be)_S 71 _t
(a)_S 71 _t
(form)_S 71 _t
(\(which)_S 71 _t
(can)_S 71 _t
(be)_S 71 _t
(nested\).)_S 72 _t
(All)_S 71 _t
(form)_S 71 _t
(elements)_S 71 _t
(are)_S 3300 5187 _m
(quoted.)_S 61 _t
(V)_S -20 _t
(alid)_S 61 _t
(form)_S 61 _t
(cars:)_S 3300 4971 _m
(or)_S 4500 4971 _m
(any)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(cdr)_S 61 _t
(type)_S 61 _t
(speci\256ers)_S 61 _t
(must)_S 61 _t
(be)_S 61 _t
(true)_S 3300 4755 _m
(and)_S 4500 4755 _m
(all)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(cdr)_S 61 _t
(type)_S 61 _t
(speci\256ers)_S 61 _t
(must)_S 61 _t
(be)_S 61 _t
(true)_S 3300 4539 _m
(not)_S 4500 4539 _m
(the)_S 61 _t
(single)_S 61 _t
(cdr)_S 61 _t
(type)_S 61 _t
(speci\256er)_S 61 _t
(must)_S 61 _t
(be)_S 61 _t
(false)_S 3300 4323 _m
(satis\256es)_S 4500 4323 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(applying)_S 61 _t
(the)_S 61 _t
(cdr)_S 61 _t
(predicate)_S 61 _t
(function)_S 61 _t
(to)_S 61 _t
(<expr>)_S 3300 4107 _m
(member)_S 4500 4107 _m
(<expr>)_S 61 _t
(must)_S 61 _t
(be)_S 61 _t
(eql)_S 61 _t
(to)_S 61 _t
(one)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(cdr)_S 61 _t
(values)_S 3300 3891 _m
(object)_S 4500 3891 _m
(<expr>)_S 76 _t
(must)_S 75 _t
(be)_S 75 _t
(an)_S 76 _t
(object,)_S 75 _t
(of)_S 76 _t
(class)_S 75 _t
(speci\256ed)_S 76 _t
(by)_S 75 _t
(the)_S 76 _t
(single)_S 75 _t
(cdr)_S 4500 3675 _m
(value.)_S 62 _t
(The)_S 63 _t
(cdr)_S 63 _t
(value)_S 63 _t
(can)_S 62 _t
(be)_S 63 _t
(a)_S 63 _t
(symbol)_S 62 _t
(which)_S 63 _t
(must)_S 62 _t
(evaluate)_S 63 _t
(to)_S 63 _t
(a)_S 4500 3459 _m
(class.)_S 3300 3243 _m
(Note)_S 61 _t
(that)_S 61 _t
(everything)_S 61 _t
(is)_S 61 _t
(of)_S 61 _t
(type)_S 61 _t
(T)_S -13 _t
(,)_S 61 _t
(and)_S 61 _t
(nothing)_S 61 _t
(is)_S 61 _t
(of)_S 61 _t
(type)_S 61 _t
(NIL.)_S 2100 3027 _m
(returns)_S 3300 3027 _m
(t)_S 61 _t
(if)_S 61 _t
(<expr>)_S 61 _t
(is)_S 61 _t
(of)_S 61 _t
(type)_S 61 _t
(<type>,)_S 61 _t
(NIL)_S 61 _t
(otherwise.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4341 11867 _m
(CONTROL)_S 61 _t
(CONSTRUCTS)_S 8699 11867 _m
(Page)_S 61 _t
(59)_S 1500 10986 _m
/HelveticaR 660 _ff
(CONTROL)_S 73 _t
(CONSTRUCTS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(cond)_S 61 _t
(<pair>...\))_S 122 _t
6815 10550 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TE)_S 61 _t
(CONDITIONALL)_S -18 _t
(Y)_S 2100 10334 _m
(fsubr)_S 2100 10118 _m
(<pair>)_S 3300 10118 _m
(pair)_S 61 _t
(consisting)_S 61 _t
(of:)_S 3300 9902 _m
(\(<pred>)_S 61 _t
(<expr>...\))_S 3300 9686 _m
(where)_S 3300 9470 _m
(<pred>)_S 4500 9470 _m
(is)_S 61 _t
(a)_S 61 _t
(predicate)_S 61 _t
(expression)_S 3300 9254 _m
(<expr>)_S 4500 9254 _m
(evaluated)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(predicate)_S 61 _t
(is)_S 61 _t
(not)_S 61 _t
(NIL)_S 2100 9038 _m
(returns)_S 3300 9038 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(\256rst)_S 61 _t
(expression)_S 61 _t
(whose)_S 61 _t
(predicate)_S 61 _t
(is)_S 61 _t
(not)_S 61 _t
(NIL)_S 1500 8606 _m
(\(and)_S 61 _t
(<expr>...\))_S 122 _t
5115 8606 _m
(THE)_S 61 _t
(LOGICAL)_S 61 _t
(AND)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(EXPRESSIONS)_S 2100 8390 _m
(fsubr)_S 2100 8174 _m
(<expr>)_S 3300 8174 _m
(the)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(ANDed)_S 2100 7958 _m
(returns)_S 3300 7958 _m
(NIL)_S 46 _t
(if)_S 47 _t
(any)_S 47 _t
(expression)_S 47 _t
(evaluates)_S 46 _t
(to)_S 47 _t
(NIL,)_S 47 _t
(otherwise)_S 47 _t
(the)_S 46 _t
(value)_S 47 _t
(of)_S 47 _t
(the)_S 47 _t
(last)_S 47 _t
(expression)_S 3300 7742 _m
(\(evaluation)_S 61 _t
(of)_S 61 _t
(expressions)_S 61 _t
(stops)_S 61 _t
(after)_S 61 _t
(the)_S 61 _t
(\256rst)_S 61 _t
(expression)_S 61 _t
(that)_S 61 _t
(evaluates)_S 61 _t
(to)_S 61 _t
(NIL\))_S 1500 7310 _m
(\(or)_S 61 _t
(<expr>...\))_S 122 _t
5257 7310 _m
(THE)_S 61 _t
(LOGICAL)_S 61 _t
(OR)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(LIST)_S 61 _t
(OF)_S 61 _t
(EXPRESSIONS)_S 2100 7094 _m
(fsubr)_S 2100 6878 _m
(<expr>)_S 3300 6878 _m
(the)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(ORed)_S 2100 6662 _m
(returns)_S 3300 6662 _m
(NIL)_S 62 _t
(if)_S 62 _t
(all)_S 61 _t
(expressions)_S 62 _t
(evaluate)_S 62 _t
(to)_S 61 _t
(NIL,)_S 62 _t
(otherwise)_S 62 _t
(the)_S 61 _t
(value)_S 62 _t
(of)_S 62 _t
(the)_S 62 _t
(\256rst)_S 61 _t
(non-NIL)_S 3300 6446 _m
(expression)_S 48 _t
(\(evaluation)_S 49 _t
(of)_S 48 _t
(expressions)_S 48 _t
(stops)_S 49 _t
(after)_S 48 _t
(the)_S 48 _t
(\256rst)_S 48 _t
(expression)_S 49 _t
(that)_S 48 _t
(does)_S 48 _t
(not)_S 3300 6230 _m
(evaluate)_S 61 _t
(to)_S 61 _t
(NIL\))_S 1500 5798 _m
(\(if)_S 61 _t
(<texpr>)_S 61 _t
(<expr1>)_S 61 _t
([<expr2>]\))_S 122 _t
5542 5798 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TE)_S 61 _t
(EXPRESSIONS)_S 61 _t
(CONDITIONALL)_S -18 _t
(Y)_S 2100 5582 _m
(fsubr)_S 2100 5366 _m
(<texpr>)_S 3300 5366 _m
(the)_S 61 _t
(test)_S 61 _t
(expression)_S 2100 5150 _m
(<expr1>)_S 3300 5150 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(evaluated)_S 61 _t
(if)_S 61 _t
(texpr)_S 61 _t
(is)_S 61 _t
(non-NIL)_S 2100 4934 _m
(<expr2>)_S 3300 4934 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(evaluated)_S 61 _t
(if)_S 61 _t
(texpr)_S 61 _t
(is)_S 61 _t
(NIL)_S 2100 4718 _m
(returns)_S 3300 4718 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(selected)_S 61 _t
(expression)_S 1500 4286 _m
(\(when)_S 61 _t
(<texpr>)_S 61 _t
(<expr>...\))_S 122 _t
5166 4286 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TE)_S 61 _t
(ONL)_S -18 _t
(Y)_S 61 _t
(WHEN)_S 61 _t
(A)_S 61 _t
(CONDITION)_S 61 _t
(IS)_S 61 _t
(TRUE)_S 2100 4070 _m
(fsubr)_S 2100 3854 _m
(<texpr>)_S 3300 3854 _m
(the)_S 61 _t
(test)_S 61 _t
(expression)_S 2100 3638 _m
(<expr>)_S 3300 3638 _m
(the)_S 61 _t
(expression\(s\))_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(evaluted)_S 61 _t
(if)_S 61 _t
(texpr)_S 61 _t
(is)_S 61 _t
(non-NIL)_S 2100 3422 _m
(returns)_S 3300 3422 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 61 _t
(or)_S 61 _t
(NIL)_S 1500 2990 _m
(\(unless)_S 61 _t
(<texpr>)_S 61 _t
(<expr>...\))_S 122 _t
5098 2990 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TE)_S 61 _t
(ONL)_S -18 _t
(Y)_S 61 _t
(WHEN)_S 61 _t
(A)_S 61 _t
(CONDITION)_S 61 _t
(IS)_S 61 _t
(F)_S -13 _t
(ALSE)_S 2100 2774 _m
(fsubr)_S 2100 2558 _m
(<texpr>)_S 3300 2558 _m
(the)_S 61 _t
(test)_S 61 _t
(expression)_S 2100 2342 _m
(<expr>)_S 3300 2342 _m
(the)_S 61 _t
(expression\(s\))_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(evaluated)_S 61 _t
(if)_S 61 _t
(texpr)_S 61 _t
(is)_S 61 _t
(NIL)_S 2100 2126 _m
(returns)_S 3300 2126 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 61 _t
(or)_S 61 _t
(NIL)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4341 11867 _m
(CONTROL)_S 61 _t
(CONSTRUCTS)_S 8699 11867 _m
(Page)_S 61 _t
(60)_S 1500 11235 _m
(\(case)_S 61 _t
(<expr>)_S 61 _t
(<case>...[\(t)_S 61 _t
(<expr>\)]\))_S 122 _t
7782 11235 _m
(SELECT)_S 61 _t
(BY)_S 61 _t
(CASE)_S 2100 11019 _m
(fsubr)_S 2100 10803 _m
(<expr>)_S 3300 10803 _m
(the)_S 61 _t
(selection)_S 61 _t
(expression)_S 2100 10587 _m
(<case>)_S 3300 10587 _m
(pair)_S 61 _t
(consisting)_S 61 _t
(of:)_S 3300 10371 _m
(\(<value>)_S 61 _t
(<expr>...\))_S 3300 10155 _m
(where:)_S 3300 9939 _m
(<value>)_S 4500 9939 _m
(is)_S 61 _t
(a)_S 61 _t
(single)_S 61 _t
(expression)_S 61 _t
(or)_S 61 _t
(a)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(expressions)_S 61 _t
(\(unevaluated\))_S 3300 9723 _m
(<expr>)_S 4500 9723 _m
(are)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(execute)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(case)_S 61 _t
(matches)_S 2100 9507 _m
(\(t)_S 61 _t
(<expr>\))_S 3300 9507 _m
(default)_S 61 _t
(case)_S 61 _t
(\(no)_S 61 _t
(previous)_S 61 _t
(matching\))_S 2100 9291 _m
(returns)_S 3300 9291 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(matching)_S 61 _t
(case)_S 1500 8859 _m
(\(let)_S 61 _t
(\(<binding>...\))_S 61 _t
(<expr>...\))_S 122 _t
6998 8859 _m
(CREA)_S -20 _t
(TE)_S 61 _t
(LOCAL)_S 61 _t
(BINDINGS)_S 1500 8643 _m
(\(let*)_S 61 _t
(\(<binding>...\))_S 61 _t
(<expr>...\))_S 122 _t
6388 8643 _m
(LET)_S 61 _t
(WITH)_S 61 _t
(SEQUENTIAL)_S 61 _t
(BINDING)_S 2100 8427 _m
(fsubr)_S 2100 8211 _m
(<binding>)_S 3300 8211 _m
(the)_S 61 _t
(variable)_S 61 _t
(bindings)_S 61 _t
(each)_S 61 _t
(of)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(either:)_S 3300 7995 _m
(1\))_S 4500 7995 _m
(a)_S 61 _t
(symbol)_S 61 _t
(\(which)_S 61 _t
(is)_S 61 _t
(initialized)_S 61 _t
(to)_S 61 _t
(NIL\))_S 3300 7779 _m
(2\))_S 4500 7779 _m
(a)_S 65 _t
(list)_S 66 _t
(whose)_S 65 _t
(car)_S 66 _t
(is)_S 66 _t
(a)_S 65 _t
(symbol)_S 66 _t
(and)_S 66 _t
(whose)_S 66 _t
(cadr)_S 65 _t
(is)_S 66 _t
(an)_S 66 _t
(initialization)_S 4500 7563 _m
(expression)_S 2100 7347 _m
(<expr>)_S 3300 7347 _m
(the)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(evaluated)_S 2100 7131 _m
(returns)_S 3300 7131 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 1500 6699 _m
(\(\257et)_S 61 _t
(\(<binding>...\))_S 61 _t
(<expr>...\))_S 122 _t
6845 6699 _m
(CREA)_S -20 _t
(TE)_S 61 _t
(LOCAL)_S 61 _t
(FUNCTIONS)_S 1500 6483 _m
(\(labels)_S 61 _t
(\(<binding>...\))_S 61 _t
(<expr>...\))_S 122 _t
6153 6483 _m
(FLET)_S 61 _t
(WITH)_S 61 _t
(RECURSIVE)_S 61 _t
(FUNCTIONS)_S 1500 6267 _m
(\(macrolet)_S 61 _t
(\(<binding>...\))_S 61 _t
(<expr>...\))_S 122 _t
7100 6267 _m
(CREA)_S -20 _t
(TE)_S 61 _t
(LOCAL)_S 61 _t
(MACROS)_S 2100 6051 _m
(fsubr)_S 2100 5835 _m
(<binding>)_S 3300 5835 _m
(the)_S 61 _t
(function)_S 61 _t
(bindings)_S 61 _t
(each)_S 61 _t
(of)_S 61 _t
(which)_S 61 _t
(is:)_S 3300 5619 _m
(\(<sym>)_S 61 _t
(<far)_S -3 _t
(gs>)_S 61 _t
(<expr>...\))_S 3300 5403 _m
(where:)_S 3300 5187 _m
(<sym>)_S 4500 5187 _m
(the)_S 61 _t
(function/macro)_S 61 _t
(name)_S 3300 4971 _m
(<far)_S -3 _t
(gs>)_S 4500 4971 _m
(formal)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 61 _t
(\(lambda)_S 61 _t
(list\))_S 3300 4755 _m
(<expr>)_S 4500 4755 _m
(expressions)_S 61 _t
(constituting)_S 61 _t
(the)_S 61 _t
(body)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(function/macro)_S 2100 4539 _m
(<expr>)_S 3300 4539 _m
(the)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(evaluated)_S 2100 4323 _m
(returns)_S 3300 4323 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 1500 3891 _m
(\(catch)_S 61 _t
(<sym>)_S 61 _t
(<expr>...\))_S 122 _t
5137 3891 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TE)_S 61 _t
(EXPRESSIONS)_S 61 _t
(AND)_S 61 _t
(CA)_S -20 _t
(TCH)_S 61 _t
(THROWS)_S 2100 3675 _m
(fsubr)_S 2100 3459 _m
(<sym>)_S 3300 3459 _m
(the)_S 61 _t
(catch)_S 61 _t
(tag)_S 2100 3243 _m
(<expr>)_S 3300 3243 _m
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 3027 _m
(returns)_S 3300 3027 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 61 _t
(the)_S 61 _t
(throw)_S 61 _t
(expression)_S 1500 2595 _m
(\(throw)_S 61 _t
(<sym>)_S 61 _t
([<expr>]\))_S 122 _t
7470 2595 _m
(THROW)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(CA)_S -20 _t
(TCH)_S 2100 2379 _m
(fsubr)_S 2100 2163 _m
(<sym>)_S 3300 2163 _m
(the)_S 61 _t
(catch)_S 61 _t
(tag)_S 2100 1947 _m
(<expr>)_S 3300 1947 _m
(the)_S 61 _t
(value)_S 61 _t
(for)_S 61 _t
(the)_S 61 _t
(catch)_S 61 _t
(to)_S 61 _t
(return)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(NIL\))_S 2100 1731 _m
(returns)_S 3300 1731 _m
(never)_S 61 _t
(returns)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4341 11867 _m
(CONTROL)_S 61 _t
(CONSTRUCTS)_S 8699 11867 _m
(Page)_S 61 _t
(61)_S 1500 11235 _m
(\(unwind-protect)_S 61 _t
(<expr>)_S 61 _t
(<cexpr>...\))_S 122 _t
5484 11235 _m
(PROTECT)_S 61 _t
(EV)_S -23 _t
(ALUA)_S -20 _t
(TION)_S 61 _t
(OF)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 2100 11019 _m
(fsubr)_S 2100 10803 _m
(<expr>)_S 3300 10803 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(protect)_S 2100 10587 _m
(<cexpr>)_S 3300 10587 _m
(the)_S 61 _t
(cleanup)_S 61 _t
(expressions)_S 2100 10371 _m
(returns)_S 3300 10371 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(expression)_S 2100 10155 _m
(Note:)_S 158 _t
(unwind-protect)_S 79 _t
(guarantees)_S 79 _t
(to)_S 80 _t
(execute)_S 79 _t
(the)_S 79 _t
(cleanup)_S 79 _t
(expressions)_S 79 _t
(even)_S 79 _t
(if)_S 80 _t
(a)_S 79 _t
(non-local)_S 79 _t
(exit)_S 2100 9939 _m
(terminates)_S 61 _t
(the)_S 61 _t
(evaluation)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(protected)_S 61 _t
(expression)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4371 11867 _m
(LOOPING)_S 61 _t
(CONSTRUCTS)_S 8699 11867 _m
(Page)_S 61 _t
(62)_S 1500 10986 _m
/HelveticaR 660 _ff
(LOOPING)_S 73 _t
(CONSTRUCTS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(loop)_S 61 _t
(<expr>...\))_S 122 _t
7314 10550 _m
(BASIC)_S 61 _t
(LOOPING)_S 61 _t
(FORM)_S 2100 10334 _m
(fsubr)_S 2100 10118 _m
(<expr>)_S 3300 10118 _m
(the)_S 61 _t
(body)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(loop)_S 2100 9902 _m
(returns)_S 3300 9902 _m
(never)_S 61 _t
(returns)_S 61 _t
(\(must)_S 61 _t
(use)_S 61 _t
(non-local)_S 61 _t
(exit,)_S 61 _t
(such)_S 61 _t
(as)_S 61 _t
(RETURN\))_S 1500 9470 _m
(\(do)_S 61 _t
(\(<binding>...\))_S 61 _t
(\(<texpr>)_S 61 _t
(<rexpr>...\))_S 61 _t
(<expr>...\))_S 6999 9470 _m
(GENERAL)_S 61 _t
(LOOPING)_S 61 _t
(FORM)_S 1500 9254 _m
(\(do*)_S 61 _t
(\(<binding>...\))_S 61 _t
(\(<texpr>)_S 61 _t
(<rexpr>...\))_S 61 _t
(<expr>...\))_S 2100 9038 _m
(fsubr)_S -10 _t
(.)_S 61 _t
(do)_S 61 _t
(binds)_S 61 _t
(simultaneously)_S -12 _t
(,)_S 61 _t
(do*)_S 61 _t
(binds)_S 61 _t
(sequentially)_S 2100 8822 _m
(<binding>)_S 3300 8822 _m
(the)_S 61 _t
(variable)_S 61 _t
(bindings)_S 61 _t
(each)_S 61 _t
(of)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(either:)_S 3300 8606 _m
(1\))_S 4500 8606 _m
(a)_S 61 _t
(symbol)_S 61 _t
(\(which)_S 61 _t
(is)_S 61 _t
(initialized)_S 61 _t
(to)_S 61 _t
(NIL\))_S 3300 8390 _m
(2\))_S 4500 8390 _m
(a)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(form:)_S 61 _t
(\(<sym>)_S 61 _t
(<init>)_S 61 _t
([<step>]\))_S 3300 8174 _m
(where:)_S 4500 7958 _m
(<sym>)_S 5700 7958 _m
(is)_S 61 _t
(the)_S 61 _t
(symbol)_S 61 _t
(to)_S 61 _t
(bind)_S 4500 7742 _m
(<init>)_S 5700 7742 _m
(the)_S 61 _t
(initial)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(symbol)_S 4500 7526 _m
(<step>)_S 5700 7526 _m
(a)_S 61 _t
(step)_S 61 _t
(expression)_S 2100 7310 _m
(<texpr>)_S 3300 7310 _m
(the)_S 61 _t
(termination)_S 61 _t
(test)_S 61 _t
(expression)_S 2100 7094 _m
(<rexpr>)_S 3300 7094 _m
(result)_S 61 _t
(expressions)_S 61 _t
(\(the)_S 61 _t
(default)_S 61 _t
(is)_S 61 _t
(NIL\))_S 2100 6878 _m
(<expr>)_S 3300 6878 _m
(the)_S 61 _t
(body)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(loop)_S 61 _t
(\(treated)_S 61 _t
(like)_S 61 _t
(an)_S 61 _t
(implicit)_S 61 _t
(prog\))_S 2100 6662 _m
(returns)_S 3300 6662 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(result)_S 61 _t
(expression)_S 1500 6230 _m
(\(dolist)_S 61 _t
(\(<sym>)_S 61 _t
(<expr>)_S 61 _t
([<rexpr>]\))_S 61 _t
(<expr>...\))_S 122 _t
7223 6230 _m
(LOOP)_S 61 _t
(THROUGH)_S 61 _t
(A)_S 61 _t
(LIST)_S 2100 6014 _m
(fsubr)_S 2100 5798 _m
(<sym>)_S 3300 5798 _m
(the)_S 61 _t
(symbol)_S 61 _t
(to)_S 61 _t
(bind)_S 61 _t
(to)_S 61 _t
(each)_S 61 _t
(list)_S 61 _t
(element)_S 2100 5582 _m
(<expr>)_S 3300 5582 _m
(the)_S 61 _t
(list)_S 61 _t
(expression)_S 2100 5366 _m
(<rexpr>)_S 3300 5366 _m
(the)_S 61 _t
(result)_S 61 _t
(expression)_S 61 _t
(\(the)_S 61 _t
(default)_S 61 _t
(is)_S 61 _t
(NIL\))_S 2100 5150 _m
(<expr>)_S 3300 5150 _m
(the)_S 61 _t
(body)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(loop)_S 61 _t
(\(treated)_S 61 _t
(like)_S 61 _t
(an)_S 61 _t
(implicit)_S 61 _t
(prog\))_S 2100 4934 _m
(returns)_S 3300 4934 _m
(the)_S 61 _t
(result)_S 61 _t
(expression)_S 1500 4502 _m
(\(dotimes)_S 61 _t
(\(<sym>)_S 61 _t
(<expr>)_S 61 _t
([<rexpr>]\))_S 61 _t
(<expr>...\))_S 122 _t
7053 4502 _m
(LOOP)_S 61 _t
(FROM)_S 61 _t
(ZERO)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(N-1)_S 2100 4286 _m
(fsubr)_S 2100 4070 _m
(<sym>)_S 3300 4070 _m
(the)_S 61 _t
(symbol)_S 61 _t
(to)_S 61 _t
(bind)_S 61 _t
(to)_S 61 _t
(each)_S 61 _t
(value)_S 61 _t
(from)_S 61 _t
(0)_S 61 _t
(to)_S 61 _t
(n-1)_S 2100 3854 _m
(<expr>)_S 3300 3854 _m
(the)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(times)_S 61 _t
(to)_S 61 _t
(loop)_S 2100 3638 _m
(<rexpr>)_S 3300 3638 _m
(the)_S 61 _t
(result)_S 61 _t
(expression)_S 61 _t
(\(the)_S 61 _t
(default)_S 61 _t
(is)_S 61 _t
(NIL\))_S 2100 3422 _m
(<expr>)_S 3300 3422 _m
(the)_S 61 _t
(body)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(loop)_S 61 _t
(\(treated)_S 61 _t
(like)_S 61 _t
(an)_S 61 _t
(implicit)_S 61 _t
(prog\))_S 2100 3206 _m
(returns)_S 3300 3206 _m
(the)_S 61 _t
(result)_S 61 _t
(expression)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4295 11867 _m
(THE)_S 61 _t
(PROGRAM)_S 61 _t
(FEATURE)_S 8699 11867 _m
(Page)_S 61 _t
(63)_S 1500 10986 _m
/HelveticaR 660 _ff
(THE)_S 73 _t
(PROGRAM)_S 73 _t
(FEA)_S -15 _t
(TURE)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(prog)_S 61 _t
(\(<binding>...\))_S 61 _t
(<expr>...\))_S 122 _t
7110 10550 _m
(THE)_S 61 _t
(PROGRAM)_S 61 _t
(FEA)_S -20 _t
(TURE)_S 1500 10334 _m
(\(prog*)_S 61 _t
(\(<binding>...\))_S 61 _t
(<expr>...\))_S 122 _t
6235 10334 _m
(PROG)_S 61 _t
(WITH)_S 61 _t
(SEQUENTIAL)_S 61 _t
(BINDING)_S 2100 10118 _m
(fsubr)_S 61 _t
(--)_S 61 _t
(equivalent)_S 61 _t
(to)_S 61 _t
(\(let)_S 61 _t
(\(\))_S 61 _t
(\(block)_S 61 _t
(NIL)_S 61 _t
(\(tagbody)_S 61 _t
(...\)\)\))_S 2100 9902 _m
(<binding>)_S 3300 9902 _m
(the)_S 61 _t
(variable)_S 61 _t
(bindings)_S 61 _t
(each)_S 61 _t
(of)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(either:)_S 3300 9686 _m
(1\))_S 4500 9686 _m
(a)_S 61 _t
(symbol)_S 61 _t
(\(which)_S 61 _t
(is)_S 61 _t
(initialized)_S 61 _t
(to)_S 61 _t
(NIL\))_S 3300 9470 _m
(2\))_S 4500 9470 _m
(a)_S 66 _t
(list)_S 65 _t
(whose)_S 66 _t
(car)_S 65 _t
(is)_S 66 _t
(a)_S 66 _t
(symbol)_S 65 _t
(and)_S 66 _t
(whose)_S 66 _t
(cadr)_S 66 _t
(is)_S 65 _t
(an)_S 66 _t
(initialization)_S 4500 9254 _m
(expression)_S 2100 9038 _m
(<expr>)_S 3300 9038 _m
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 61 _t
(or)_S 61 _t
(tags)_S 61 _t
(\(symbols\))_S 2100 8822 _m
(returns)_S 3300 8822 _m
(NIL)_S 61 _t
(or)_S 61 _t
(the)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(passed)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(return)_S 61 _t
(function)_S 1500 8390 _m
(\(block)_S 61 _t
(<name>)_S 61 _t
(<expr>...\))_S 122 _t
7946 8390 _m
(NAMED)_S 61 _t
(BLOCK)_S 2100 8174 _m
(fsubr)_S 2100 7958 _m
(<name>)_S 3300 7958 _m
(the)_S 61 _t
(block)_S 61 _t
(name)_S 61 _t
(\(quoted)_S 61 _t
(symbol\))_S 2100 7742 _m
(<expr>)_S 3300 7742 _m
(the)_S 61 _t
(block)_S 61 _t
(body)_S 2100 7526 _m
(returns)_S 3300 7526 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 1500 7094 _m
(\(return)_S 61 _t
([<expr>]\))_S 122 _t
4856 7094 _m
(CAUSE)_S 61 _t
(A)_S 61 _t
(PROG)_S 61 _t
(CONSTRUCT)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(RETURN)_S 61 _t
(A)_S 61 _t
(V)_S -23 _t
(ALUE)_S 2100 6878 _m
(fsubr)_S 2100 6662 _m
(<expr>)_S 3300 6662 _m
(the)_S 61 _t
(value)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(NIL\))_S 2100 6446 _m
(returns)_S 3300 6446 _m
(never)_S 61 _t
(returns)_S 1500 6014 _m
(\(return-from)_S 61 _t
(<name>)_S 61 _t
([<value>]\))_S 122 _t
5074 6014 _m
(RETURN)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(NAMED)_S 61 _t
(BLOCK)_S 61 _t
(OR)_S 61 _t
(FUNCTION)_S 2100 5798 _m
(fsubr)_S -10 _t
(.)_S 61 _t
(In)_S 61 _t
(xlisp,)_S 61 _t
(the)_S 61 _t
(names)_S 61 _t
(are)_S 61 _t
(dynamically)_S 61 _t
(scoped.)_S 2100 5582 _m
(<name>)_S 3300 5582 _m
(the)_S 96 _t
(block)_S 96 _t
(or)_S 96 _t
(function)_S 96 _t
(name)_S 96 _t
(\(quoted)_S 97 _t
(symbol\).)_S 96 _t
(If)_S 96 _t
(name)_S 96 _t
(is)_S 96 _t
(NIL,)_S 96 _t
(use)_S 96 _t
(function)_S 3300 5366 _m
(RETURN.)_S 2100 5150 _m
(<value>)_S 3300 5150 _m
(the)_S 61 _t
(value)_S 61 _t
(to)_S 61 _t
(return)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(NIL\))_S 2100 4934 _m
(returns)_S 3300 4934 _m
(never)_S 61 _t
(returns)_S 1500 4502 _m
(\(tagbody)_S 61 _t
(<expr>...\))_S 122 _t
7386 4502 _m
(BLOCK)_S 61 _t
(WITH)_S 61 _t
(LABELS)_S 2100 4286 _m
(fsubr)_S 2100 4070 _m
(<expr>)_S 3300 4070 _m
(expression\(s\))_S 61 _t
(to)_S 61 _t
(evaluate)_S 61 _t
(or)_S 61 _t
(tags)_S 61 _t
(\(symbols\))_S 2100 3854 _m
(returns)_S 3300 3854 _m
(NIL)_S 1500 3422 _m
(\(go)_S 61 _t
(<sym>\))_S 122 _t
6248 3422 _m
(GO)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(T)_S -15 _t
(AG)_S 61 _t
(WITHIN)_S 61 _t
(A)_S 61 _t
(T)_S -15 _t
(AGBODY)_S 2100 3206 _m
(fsubr)_S -10 _t
(.)_S 61 _t
(In)_S 61 _t
(xlisp,)_S 61 _t
(tags)_S 61 _t
(are)_S 61 _t
(dynamically)_S 61 _t
(scoped.)_S 2100 2990 _m
(<sym>)_S 3300 2990 _m
(the)_S 61 _t
(tag)_S 61 _t
(\(quoted\))_S 2100 2774 _m
(returns)_S 3300 2774 _m
(never)_S 61 _t
(returns)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4295 11867 _m
(THE)_S 61 _t
(PROGRAM)_S 61 _t
(FEATURE)_S 8699 11867 _m
(Page)_S 61 _t
(64)_S 1500 11235 _m
(\(progv)_S 61 _t
(<slist>)_S 61 _t
(<vlist>)_S 61 _t
(<expr>...\))_S 122 _t
6518 11235 _m
(DYNAMICALL)_S -18 _t
(Y)_S 61 _t
(BIND)_S 61 _t
(SYMBOLS)_S 2100 11019 _m
(fsubr)_S 2100 10803 _m
(<slist>)_S 3300 10803 _m
(list)_S 61 _t
(of)_S 61 _t
(symbols)_S 61 _t
(\(evaluated\))_S 2100 10587 _m
(<vlist>)_S 3300 10587 _m
(list)_S 61 _t
(of)_S 61 _t
(values)_S 61 _t
(to)_S 61 _t
(bind)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(symbols)_S 61 _t
(\(evaluated\))_S 2100 10371 _m
(<expr>)_S 3300 10371 _m
(expression\(s\))_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 10155 _m
(returns)_S 3300 10155 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 1500 9723 _m
(\(prog1)_S 61 _t
(<expr1>)_S 61 _t
(<expr>...\))_S 122 _t
5764 9723 _m
(EXECUTE)_S 61 _t
(EXPRESSIONS)_S 61 _t
(SEQUENTIALL)_S -18 _t
(Y)_S 2100 9507 _m
(fsubr)_S 2100 9291 _m
(<expr1>)_S 3300 9291 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 9075 _m
(<expr>)_S 3300 9075 _m
(the)_S 61 _t
(remaining)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 8859 _m
(returns)_S 3300 8859 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(\256rst)_S 61 _t
(expression)_S 1500 8427 _m
(\(prog2)_S 61 _t
(<expr1>)_S 61 _t
(<expr2>)_S 61 _t
(<expr>...\))_S 122 _t
5764 8427 _m
(EXECUTE)_S 61 _t
(EXPRESSIONS)_S 61 _t
(SEQUENTIALL)_S -18 _t
(Y)_S 2100 8211 _m
(fsubr)_S 2100 7995 _m
(<expr1>)_S 3300 7995 _m
(the)_S 61 _t
(\256rst)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 7779 _m
(<expr2>)_S 3300 7779 _m
(the)_S 61 _t
(second)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 7563 _m
(<expr>)_S 3300 7563 _m
(the)_S 61 _t
(remaining)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 7347 _m
(returns)_S 3300 7347 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(second)_S 61 _t
(expression)_S 1500 6915 _m
(\(progn)_S 61 _t
(<expr>...\))_S 122 _t
5764 6915 _m
(EXECUTE)_S 61 _t
(EXPRESSIONS)_S 61 _t
(SEQUENTIALL)_S -18 _t
(Y)_S 2100 6699 _m
(fsubr)_S 2100 6483 _m
(<expr>)_S 3300 6483 _m
(the)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 6267 _m
(returns)_S 3300 6267 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 61 _t
(\(or)_S 61 _t
(NIL\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4198 11867 _m
(INPUT/OUTPUT)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(65)_S 1500 10986 _m
/HelveticaR 660 _ff
(INPUT/OUTPUT)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(Note)_S 61 _t
(that)_S 61 _t
(when)_S 61 _t
(printing)_S 61 _t
(objects,)_S 61 _t
(printing)_S 61 _t
(is)_S 61 _t
(accomplished)_S 61 _t
(by)_S 61 _t
(sending)_S 61 _t
(the)_S 61 _t
(message)_S 61 _t
(:prin1)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(object.)_S 1500 10118 _m
(\(read)_S 61 _t
([<stream>)_S 61 _t
([<eof>)_S 61 _t
([<r\257ag>]]]\))_S 122 _t
7304 10118 _m
(READ)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 2100 9902 _m
(<stream>)_S 3300 9902 _m
(the)_S 61 _t
(input)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 9686 _m
(<eof>)_S 3300 9686 _m
(the)_S 61 _t
(value)_S 61 _t
(to)_S 61 _t
(return)_S 61 _t
(on)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(\256le)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(NIL\))_S 2100 9470 _m
(<r\257ag>)_S 3300 9470 _m
(recursive)_S 61 _t
(read)_S 61 _t
(\257ag.)_S 61 _t
(The)_S 61 _t
(value)_S 61 _t
(is)_S 61 _t
(ignored)_S 2100 9254 _m
(returns)_S 3300 9254 _m
(the)_S 61 _t
(expression)_S 61 _t
(read)_S 1500 8822 _m
(\(set-macro-character)_S 61 _t
(<ch>)_S 61 _t
(<fcn>)_S 61 _t
([)_S 61 _t
(T)_S 61 _t
(]\))_S 7380 8822 _m
(MODIFY)_S 61 _t
(READ)_S 61 _t
(T)_S -15 _t
(ABLE)_S 2100 8606 _m
(de\256ned)_S 61 _t
(in)_S 61 _t
(init.lsp)_S 2100 8390 _m
(<ch>)_S 3300 8390 _m
(character)_S 61 _t
(to)_S 61 _t
(de\256ne)_S 2100 8174 _m
(<fcn>)_S 3300 8174 _m
(function)_S 61 _t
(to)_S 61 _t
(bind)_S 61 _t
(to)_S 61 _t
(character)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(10\))_S 2100 7958 _m
(T)_S 3300 7958 _m
(if)_S 61 _t
(TMACRO)_S 61 _t
(rather)_S 61 _t
(than)_S 61 _t
(NMACRO)_S 1500 7526 _m
(\(get-macro-character)_S 61 _t
(<ch>\))_S 7258 7526 _m
(EXAMINE)_S 61 _t
(READ)_S 61 _t
(T)_S -15 _t
(ABLE)_S 2100 7310 _m
(de\256ned)_S 61 _t
(in)_S 61 _t
(init.lsp)_S 2100 7094 _m
(<ch>)_S 3300 7094 _m
(character)_S 2100 6878 _m
(returns)_S 3300 6878 _m
(function)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(character)_S 1500 6446 _m
(\(print)_S 61 _t
(<expr>)_S 61 _t
([<stream>]\))_S 122 _t
5797 6446 _m
(PRINT)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 61 _t
(ON)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(LINE)_S 2100 6230 _m
(The)_S 43 _t
(expression)_S 43 _t
(is)_S 43 _t
(printed)_S 43 _t
(using)_S 43 _t
(prin1,)_S 43 _t
(then)_S 43 _t
(current)_S 44 _t
(line)_S 43 _t
(is)_S 43 _t
(terminated)_S 43 _t
(\(Note:)_S 43 _t
(this)_S 43 _t
(is)_S 44 _t
(backwards)_S 43 _t
(from)_S 2100 6014 _m
(Common)_S 61 _t
(Lisp\).)_S 2100 5798 _m
(<expr>)_S 3300 5798 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(printed)_S 2100 5582 _m
(<stream>)_S 3300 5582 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 5366 _m
(returns)_S 3300 5366 _m
(the)_S 61 _t
(expression)_S 1500 4934 _m
(\(prin1)_S 61 _t
(<expr>)_S 61 _t
([<stream>]\))_S 122 _t
7273 4934 _m
(PRINT)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 2100 4718 _m
(symbols,)_S 57 _t
(cons)_S 56 _t
(cells)_S 57 _t
(\(without)_S 56 _t
(circularities\),)_S 57 _t
(arrays,)_S 56 _t
(strings,)_S 57 _t
(numbers,)_S 56 _t
(and)_S 57 _t
(characters)_S 56 _t
(are)_S 57 _t
(printed)_S 56 _t
(in)_S 2100 4502 _m
(a)_S 58 _t
(format)_S 59 _t
(generally)_S 58 _t
(acceptable)_S 58 _t
(to)_S 58 _t
(the)_S 58 _t
(read)_S 58 _t
(function.)_S 58 _t
(Printing)_S 58 _t
(format)_S 58 _t
(can)_S 59 _t
(be)_S 58 _t
(affected)_S 58 _t
(by)_S 58 _t
(the)_S 58 _t
(global)_S 2100 4286 _m
(formatting)_S 73 _t
(variables:)_S 73 _t
(*print-level*)_S 74 _t
(and)_S 73 _t
(*print-length*)_S 74 _t
(for)_S 73 _t
(lists)_S 73 _t
(and)_S 73 _t
(arrays,)_S 74 _t
(*integer)_S -4 _t
(-format*)_S 73 _t
(for)_S 2100 4070 _m
(\256)_S 6 _t
(x)_S 6 _t
(n)_S 6 _t
(u)_S 6 _t
(m)_S 6 _t
(s)_S 6 _t
(,)_S 123 _t
(*)_S 6 _t
(\257)_S 6 _t
(o)_S 6 _t
(a)_S 6 _t
(t)_S 6 _t
(-)_S 6 _t
(f)_S 6 _t
(o)_S 6 _t
(r)_S 6 _t
(m)_S 6 _t
(a)_S 6 _t
(t)_S 6 _t
(*)_S 124 _t
(f)_S 6 _t
(o)_S 6 _t
(r)_S 123 _t
(\257)_S 6 _t
(o)_S 6 _t
(n)_S 6 _t
(u)_S 6 _t
(m)_S 6 _t
(s)_S 6 _t
(,)_S 123 _t
(*)_S 6 _t
(r)_S 6 _t
(a)_S 6 _t
(t)_S 6 _t
(i)_S 6 _t
(o)_S 6 _t
(-)_S 6 _t
(f)_S 6 _t
(o)_S 6 _t
(r)_S 6 _t
(m)_S 6 _t
(a)_S 6 _t
(t)_S 6 _t
(*)_S 124 _t
(f)_S 6 _t
(o)_S 6 _t
(r)_S 123 _t
(r)_S 6 _t
(a)_S 6 _t
(t)_S 6 _t
(i)_S 6 _t
(o)_S 6 _t
(s)_S 6 _t
(,)_S 123 _t
(a)_S 6 _t
(n)_S 6 _t
(d)_S 124 _t
(*)_S 6 _t
(p)_S 6 _t
(r)_S 6 _t
(i)_S 6 _t
(n)_S 6 _t
(t)_S 6 _t
(-)_S 6 _t
(c)_S 6 _t
(a)_S 6 _t
(s)_S 6 _t
(e)_S 6 _t
(*)_S 123 _t
(a)_S 6 _t
(n)_S 6 _t
(d)_S 2100 3854 _m
(*readtable-case*)_S 61 _t
(for)_S 61 _t
(symbols.)_S 2100 3638 _m
(<expr>)_S 3300 3638 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(printed)_S 2100 3422 _m
(<stream>)_S 3300 3422 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 3206 _m
(returns)_S 3300 3206 _m
(the)_S 61 _t
(expression)_S 1500 2774 _m
(\(princ)_S 61 _t
(<expr>)_S 61 _t
([<stream>]\))_S 122 _t
5461 2774 _m
(PRINT)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 61 _t
(WITHOUT)_S 61 _t
(QUOTING)_S 2100 2558 _m
(Like)_S 70 _t
(PRIN1)_S 70 _t
(except)_S 71 _t
(symbols)_S 70 _t
(\(including)_S 70 _t
(uninterned\),)_S 71 _t
(strings,)_S 70 _t
(and)_S 71 _t
(characters)_S 70 _t
(are)_S 70 _t
(printed)_S 71 _t
(without)_S 2100 2342 _m
(using)_S 61 _t
(any)_S 61 _t
(quoting)_S 61 _t
(mechanisms.)_S 2100 2126 _m
(<expr>)_S 3300 2126 _m
(the)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(printed)_S 2100 1910 _m
(<stream>)_S 3300 1910 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 1694 _m
(returns)_S 3300 1694 _m
(the)_S 61 _t
(expression)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4198 11867 _m
(INPUT/OUTPUT)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(66)_S 1500 11235 _m
(\(pprint)_S 61 _t
(<expr>)_S 61 _t
([<stream>]\))_S 122 _t
6520 11235 _m
(PRETTY)_S 61 _t
(PRINT)_S 61 _t
(AN)_S 61 _t
(EXPRESSION)_S 2100 11019 _m
(Uses)_S 61 _t
(prin1)_S 61 _t
(for)_S 61 _t
(printing.)_S 2100 10803 _m
(<expr>)_S 3300 10803 _m
(the)_S 61 _t
(expressions)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(printed)_S 2100 10587 _m
(<stream>)_S 3300 10587 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 10371 _m
(returns)_S 3300 10371 _m
(the)_S 61 _t
(expression)_S 1500 9939 _m
(\(terpri)_S 61 _t
([<stream>]\))_S 61 _t
5797 9939 _m
61 _t
(TERMINA)_S -20 _t
(TE)_S 61 _t
(THE)_S 61 _t
(CURRENT)_S 61 _t
(PRINT)_S 61 _t
(LINE)_S 2100 9723 _m
(<stream>)_S 3300 9723 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 9507 _m
(returns)_S 3300 9507 _m
(NIL)_S 1500 9075 _m
(\(fresh-line)_S 61 _t
([<stream>]\))_S 7595 9075 _m
(ST)_S -15 _t
(AR)_S -11 _t
(T)_S 61 _t
(A)_S 61 _t
(NEW)_S 61 _t
(LINE)_S 2100 8859 _m
(<stream>)_S 3300 8859 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 8643 _m
(returns)_S 3300 8643 _m
(t)_S 61 _t
(if)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(list)_S 61 _t
(was)_S 61 _t
(started,)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(already)_S 61 _t
(at)_S 61 _t
(the)_S 61 _t
(start)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(line.)_S 1500 8211 _m
(\(\257atsize)_S 61 _t
(<expr>\))_S 122 _t
4620 8211 _m
(LENGTH)_S 61 _t
(OF)_S 61 _t
(PRINTED)_S 61 _t
(REPRESENT)_S -15 _t
(A)_S -20 _t
(TION)_S 61 _t
(USING)_S 61 _t
(PRIN1)_S 2100 7995 _m
(<expr>)_S 3300 7995 _m
(the)_S 61 _t
(expression)_S 2100 7779 _m
(returns)_S 3300 7779 _m
(the)_S 61 _t
(length)_S 1500 7347 _m
(\(\257atc)_S 61 _t
(<expr>\))_S 122 _t
4590 7347 _m
(LENGTH)_S 61 _t
(OF)_S 61 _t
(PRINTED)_S 61 _t
(REPRESENT)_S -15 _t
(A)_S -20 _t
(TION)_S 61 _t
(USING)_S 61 _t
(PRINC)_S 2100 7131 _m
(<expr>)_S 3300 7131 _m
(the)_S 61 _t
(expression)_S 2100 6915 _m
(returns)_S 3300 6915 _m
(the)_S 61 _t
(length)_S 1500 6483 _m
(\(y-or)_S -4 _t
(-n-p)_S 61 _t
([<fmt>)_S 61 _t
([<ar)_S -3 _t
(g>...]]\))_S 6714 6483 _m
(ASK)_S 61 _t
(A)_S 61 _t
(YES)_S 61 _t
(OR)_S 61 _t
(NO)_S 61 _t
(QUESTION)_S 2100 6267 _m
(de\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp.)_S 61 _t
(Uses)_S 61 _t
(*terminal-io*)_S 61 _t
(stream)_S 61 _t
(for)_S 61 _t
(interaction.)_S 2100 6051 _m
(<fmt>)_S 3300 6051 _m
(optional)_S 61 _t
(format)_S 61 _t
(string)_S 61 _t
(for)_S 61 _t
(question)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(67\))_S 2100 5835 _m
(<ar)_S -3 _t
(g>)_S 3300 5835 _m
(ar)_S -3 _t
(guments,)_S 61 _t
(if)_S 61 _t
(any)_S -12 _t
(,)_S 61 _t
(for)_S 61 _t
(format)_S 61 _t
(string)_S 2100 5619 _m
(returns)_S 3300 5619 _m
(T)_S 61 _t
(for)_S 61 _t
(yes,)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(no.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4315 11867 _m
(THE)_S 61 _t
(FORMAT)_S 61 _t
(FUNCTION)_S 8699 11867 _m
(Page)_S 61 _t
(67)_S 1500 10986 _m
/HelveticaR 660 _ff
(THE)_S 73 _t
(FORMA)_S -15 _t
(T)_S 73 _t
(FUNCTION)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(format)_S 61 _t
(<stream>)_S 61 _t
(<fmt>)_S 61 _t
([<ar)_S -3 _t
(g>...]\))_S 122 _t
7090 10550 _m
(DO)_S 61 _t
(FORMA)_S -20 _t
(TTED)_S 61 _t
(OUTPUT)_S 2100 10334 _m
(<stream>)_S 3300 10334 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(T)_S 61 _t
(is)_S 61 _t
(*standard-output*\))_S 2100 10118 _m
(<fmt>)_S 3300 10118 _m
(the)_S 61 _t
(format)_S 61 _t
(string)_S 2100 9902 _m
(<ar)_S -3 _t
(g>)_S 3300 9902 _m
(the)_S 61 _t
(format)_S 61 _t
(ar)_S -3 _t
(guments)_S 2100 9686 _m
(returns)_S 3300 9686 _m
(output)_S 61 _t
(string)_S 61 _t
(if)_S 61 _t
(<stream>)_S 61 _t
(is)_S 61 _t
(NIL,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 9254 _m
(The)_S 81 _t
(format)_S 81 _t
(string)_S 80 _t
(can)_S 81 _t
(contain)_S 81 _t
(characters)_S 81 _t
(that)_S 80 _t
(should)_S 81 _t
(be)_S 81 _t
(copied)_S 81 _t
(directly)_S 80 _t
(to)_S 81 _t
(the)_S 81 _t
(output)_S 81 _t
(and)_S 80 _t
(formatting)_S 1500 9038 _m
(directives.)_S 61 _t
(The)_S 61 _t
(formatting)_S 61 _t
(directives)_S 61 _t
(are:)_S 2100 8606 _m
(~A)_S 61 _t
(or)_S 61 _t
(~a)_S 3300 8606 _m
(print)_S 61 _t
(next)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(using)_S 61 _t
(princ)_S 2100 8390 _m
(~S)_S 61 _t
(or)_S 61 _t
(~s)_S 3300 8390 _m
(print)_S 61 _t
(next)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(using)_S 61 _t
(prin1)_S 2100 8174 _m
(~D)_S 61 _t
(or)_S 61 _t
(~d)_S 3300 8174 _m
(print)_S 61 _t
(next)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(integer)_S 2100 7958 _m
(~E)_S 61 _t
(or)_S 61 _t
(~e)_S 3300 7958 _m
(print)_S 61 _t
(next)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(in)_S 61 _t
(exponential)_S 61 _t
(form)_S 2100 7742 _m
(~F)_S 61 _t
(or)_S 61 _t
(~f)_S 3300 7742 _m
(print)_S 61 _t
(next)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(in)_S 61 _t
(\256xed)_S 61 _t
(point)_S 61 _t
(form)_S 2100 7526 _m
(~G)_S 61 _t
(or)_S 61 _t
(~g)_S 3300 7526 _m
(print)_S 61 _t
(next)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(using)_S 61 _t
(either)_S 61 _t
(~E)_S 61 _t
(or)_S 61 _t
(~F)_S 61 _t
(depending)_S 61 _t
(on)_S 61 _t
(magnitude)_S 2100 7310 _m
(~%)_S 3300 7310 _m
(start)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(line)_S 2100 7094 _m
(~&)_S 3300 7094 _m
(start)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(line)_S 61 _t
(if)_S 61 _t
(not)_S 61 _t
(on)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(line)_S 2100 6878 _m
(~t)_S 61 _t
(or)_S 61 _t
(~T)_S 3300 6878 _m
(go)_S 61 _t
(to)_S 61 _t
(a)_S 61 _t
(speci\256ed)_S 61 _t
(column)_S 2100 6662 _m
(~~)_S 3300 6662 _m
(print)_S 61 _t
(a)_S 61 _t
(tilde)_S 61 _t
(character)_S 2100 6446 _m
(~\\n)_S 3300 6446 _m
(ignore)_S 61 _t
(return)_S 61 _t
(and)_S 61 _t
(following)_S 61 _t
(whitespace)_S 1500 6014 _m
(The)_S 53 _t
(format)_S 53 _t
(directives)_S 54 _t
(can)_S 53 _t
(contain)_S 53 _t
(optional)_S 53 _t
(pre\256x)_S 53 _t
(and)_S 54 _t
(optional)_S 53 _t
(colon)_S 53 _t
(\(:\))_S 53 _t
(or)_S 53 _t
(at-sign)_S 54 _t
(\(@\))_S 53 _t
(modi\256ers)_S 53 _t
(between)_S 1500 5798 _m
(the)_S 63 _t
(tilde)_S 64 _t
(and)_S 64 _t
(directive)_S 64 _t
(character)_S -10 _t
(.)_S 64 _t
(Pre\256x)_S 64 _t
(characters)_S 64 _t
(are)_S 64 _t
(unsigned)_S 64 _t
(integers,)_S 63 _t
(or)_S 64 _t
(the)_S 64 _t
(character)_S 64 _t
('v')_S 64 _t
(to)_S 64 _t
(indicate)_S 1500 5582 _m
(the)_S 51 _t
(number)_S 51 _t
(is)_S 52 _t
(taken)_S 51 _t
(from)_S 51 _t
(the)_S 52 _t
(next)_S 51 _t
(ar)_S -3 _t
(gument,)_S 51 _t
(or)_S 52 _t
(a)_S 51 _t
(single)_S 51 _t
(quote)_S 52 _t
(\('\))_S 51 _t
(followed)_S 51 _t
(by)_S 52 _t
(a)_S 51 _t
(single)_S 51 _t
(character)_S 51 _t
(for)_S 52 _t
(those)_S 1500 5366 _m
(parameters)_S 61 _t
(that)_S 61 _t
(should)_S 61 _t
(be)_S 61 _t
(a)_S 61 _t
(single)_S 61 _t
(character)_S -10 _t
(.)_S 1500 4934 _m
(For)_S 61 _t
(~A)_S 61 _t
(and)_S 61 _t
(~S)_S 61 _t
(the)_S 61 _t
(full)_S 61 _t
(form)_S 61 _t
(is:)_S 2100 4502 _m
(~mincol,colinc,minpad,padchar:@A)_S 5700 4502 _m
(\(or)_S 61 _t
(S\))_S 1500 4070 _m
(If)_S 63 _t
(:)_S 62 _t
(is)_S 62 _t
(given,)_S 62 _t
(NIL)_S 62 _t
(will)_S 63 _t
(print)_S 62 _t
(as)_S 62 _t
("\(\)")_S 62 _t
(rather)_S 62 _t
(than)_S 63 _t
("NIL".)_S 62 _t
(The)_S 62 _t
(string)_S 62 _t
(is)_S 62 _t
(padded)_S 63 _t
(on)_S 62 _t
(the)_S 62 _t
(right)_S 62 _t
(\(or)_S 62 _t
(left,)_S 63 _t
(if)_S 62 _t
(@)_S 62 _t
(is)_S 1500 3854 _m
(given\))_S 82 _t
(with)_S 83 _t
(at)_S 82 _t
(least)_S 83 _t
("minpad")_S 82 _t
(copies)_S 83 _t
(of)_S 82 _t
(the)_S 83 _t
("padchar".)_S 82 _t
(Padding)_S 83 _t
(characters)_S 82 _t
(are)_S 83 _t
(then)_S 82 _t
(inserted)_S 83 _t
("colinc")_S 1500 3638 _m
(characters)_S 61 _t
(at)_S 61 _t
(a)_S 61 _t
(time)_S 60 _t
(until)_S 61 _t
(the)_S 60 _t
(total)_S 61 _t
(width)_S 61 _t
(is)_S 60 _t
(at)_S 61 _t
(least)_S 61 _t
("mincol".)_S 61 _t
(The)_S 60 _t
(defaults)_S 61 _t
(are)_S 61 _t
(0)_S 60 _t
(for)_S 61 _t
(mincol)_S 61 _t
(and)_S 60 _t
(minpad,)_S 1500 3422 _m
(1)_S 61 _t
(for)_S 61 _t
(colinc,)_S 61 _t
(and)_S 61 _t
(#\\space)_S 61 _t
(for)_S 61 _t
(padchar)_S -10 _t
(.)_S 61 _t
(For)_S 61 _t
(example:)_S 2100 2990 _m
(~15,,2,'.@A)_S 1500 2558 _m
(The)_S 61 _t
(output)_S 61 _t
(is)_S 61 _t
(padded)_S 61 _t
(on)_S 61 _t
(the)_S 61 _t
(left)_S 61 _t
(with)_S 61 _t
(at)_S 61 _t
(least)_S 61 _t
(2)_S 61 _t
(periods)_S 61 _t
(until)_S 61 _t
(the)_S 61 _t
(output)_S 61 _t
(is)_S 61 _t
(at)_S 61 _t
(least)_S 61 _t
(15)_S 61 _t
(characters)_S 61 _t
(wide.)_S 1500 2126 _m
(For)_S 61 _t
(~D)_S 61 _t
(the)_S 61 _t
(full)_S 61 _t
(form)_S 61 _t
(is:)_S 2100 1694 _m
(~mincol,padchar@D)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4315 11867 _m
(THE)_S 61 _t
(FORMAT)_S 61 _t
(FUNCTION)_S 8699 11867 _m
(Page)_S 61 _t
(68)_S 1500 11235 _m
(If)_S 58 _t
(the)_S 58 _t
(ar)_S -3 _t
(gument)_S 58 _t
(is)_S 58 _t
(not)_S 57 _t
(a)_S 58 _t
(FIXNUM,)_S 58 _t
(then)_S 58 _t
(the)_S 57 _t
(format)_S 58 _t
("~mincolA")_S 58 _t
(is)_S 58 _t
(used.)_S 57 _t
(If)_S 58 _t
("mincol")_S 58 _t
(is)_S 58 _t
(speci\256ed)_S 57 _t
(then)_S 58 _t
(the)_S 1500 11019 _m
(number)_S 54 _t
(is)_S 54 _t
(padded)_S 54 _t
(on)_S 54 _t
(the)_S 54 _t
(left)_S 54 _t
(to)_S 54 _t
(be)_S 54 _t
(at)_S 54 _t
(least)_S 54 _t
(that)_S 54 _t
(many)_S 54 _t
(characters)_S 54 _t
(long)_S 54 _t
(using)_S 54 _t
("padchar".)_S 54 _t
("padchar")_S 54 _t
(defaults)_S 1500 10803 _m
(to)_S 54 _t
(#\\space.)_S 53 _t
(If)_S 54 _t
(@)_S 53 _t
(is)_S 54 _t
(used)_S 54 _t
(and)_S 54 _t
(the)_S 53 _t
(value)_S 54 _t
(is)_S 54 _t
(positive,)_S 54 _t
(then)_S 53 _t
(a)_S 54 _t
(leading)_S 54 _t
(plus)_S 54 _t
(sign)_S 53 _t
(is)_S 54 _t
(printed)_S 54 _t
(before)_S 54 _t
(the)_S 53 _t
(\256rst)_S 54 _t
(digit.)_S 1500 10371 _m
(For)_S 61 _t
(~E)_S 61 _t
(~F)_S 61 _t
(and)_S 61 _t
(~G)_S 61 _t
(the)_S 61 _t
(full)_S 61 _t
(form)_S 61 _t
(is:)_S 2100 9939 _m
(~mincol,round,padchar@E)_S 5700 9939 _m
(\(or)_S 61 _t
(F)_S 61 _t
(or)_S 61 _t
(G\))_S 1500 9507 _m
(\(This)_S 56 _t
(implementation)_S 56 _t
(is)_S 56 _t
(not)_S 56 _t
(Common)_S 55 _t
(Lisp)_S 56 _t
(compatible.\))_S 56 _t
(If)_S 56 _t
(the)_S 56 _t
(ar)_S -3 _t
(gument)_S 55 _t
(is)_S 56 _t
(not)_S 56 _t
(a)_S 56 _t
(real)_S 56 _t
(number)_S 55 _t
(\(FIXNUM,)_S 1500 9291 _m
(RA)_S -20 _t
(TIO,)_S 60 _t
(or)_S 60 _t
(FLONUM\),)_S 61 _t
(then)_S 60 _t
(the)_S 60 _t
(format)_S 60 _t
("~mincol,padcharD")_S 60 _t
(is)_S 60 _t
(used.)_S 60 _t
(The)_S 60 _t
(number)_S 60 _t
(is)_S 60 _t
(printed)_S 60 _t
(using)_S 60 _t
(the)_S 60 _t
(C)_S 1500 9075 _m
(language)_S 70 _t
(e,)_S 70 _t
(f,)_S 69 _t
(or)_S 70 _t
(g)_S 70 _t
(formats.)_S 69 _t
(If)_S 70 _t
(the)_S 69 _t
(number)_S 70 _t
(could)_S 70 _t
(potentially)_S 69 _t
(take)_S 70 _t
(more)_S 70 _t
(than)_S 69 _t
(100)_S 70 _t
(digits)_S 69 _t
(to)_S 70 _t
(print,)_S 70 _t
(then)_S 69 _t
(F)_S 1500 8859 _m
(format)_S 47 _t
(is)_S 48 _t
(forced)_S 47 _t
(to)_S 48 _t
(E)_S 47 _t
(format,)_S 48 _t
(although)_S 47 _t
(some)_S 48 _t
(C)_S 47 _t
(libraries)_S 48 _t
(will)_S 47 _t
(do)_S 48 _t
(this)_S 47 _t
(at)_S 48 _t
(a)_S 47 _t
(lower)_S 48 _t
(number)_S 47 _t
(of)_S 47 _t
(digits.)_S 48 _t
(If)_S 47 _t
("round")_S 1500 8643 _m
(is)_S 83 _t
(speci\256ed,)_S 83 _t
(than)_S 83 _t
(that)_S 83 _t
(is)_S 83 _t
(the)_S 83 _t
(number)_S 83 _t
(of)_S 83 _t
(digits)_S 83 _t
(to)_S 83 _t
(the)_S 83 _t
(right)_S 83 _t
(of)_S 83 _t
(the)_S 83 _t
(decimal)_S 83 _t
(point)_S 83 _t
(that)_S 83 _t
(will)_S 83 _t
(be)_S 83 _t
(printed,)_S 1500 8427 _m
(otherwise)_S 64 _t
(six)_S 64 _t
(digits)_S 64 _t
(\(or)_S 64 _t
(whatever)_S 64 _t
(is)_S 64 _t
(necessary)_S 64 _t
(in)_S 64 _t
(G)_S 65 _t
(format\))_S 64 _t
(are)_S 64 _t
(printed.)_S 64 _t
(In)_S 64 _t
(G)_S 64 _t
(format,)_S 64 _t
(trailing)_S 64 _t
(zeroes)_S 65 _t
(are)_S 1500 8211 _m
(deleted)_S 49 _t
(and)_S 48 _t
(exponential)_S 49 _t
(notation)_S 48 _t
(is)_S 49 _t
(used)_S 49 _t
(if)_S 48 _t
(the)_S 49 _t
(exponent)_S 48 _t
(of)_S 49 _t
(the)_S 49 _t
(number)_S 48 _t
(is)_S 49 _t
(greater)_S 49 _t
(than)_S 48 _t
(the)_S 49 _t
(precision)_S 48 _t
(or)_S 49 _t
(less)_S 1500 7995 _m
(than)_S 69 _t
(-4.)_S 69 _t
(If)_S 68 _t
(the)_S 69 _t
(@)_S 69 _t
(modi\256er)_S 68 _t
(is)_S 69 _t
(used,)_S 69 _t
(a)_S 68 _t
(leading)_S 69 _t
(plus)_S 69 _t
(sign)_S 68 _t
(is)_S 69 _t
(printed)_S 69 _t
(before)_S 69 _t
(positive)_S 68 _t
(values.)_S 69 _t
(If)_S 69 _t
("mincol")_S 68 _t
(is)_S 1500 7779 _m
(speci\256ed,)_S 84 _t
(the)_S 83 _t
(number)_S 83 _t
(is)_S 83 _t
(padded)_S 83 _t
(on)_S 83 _t
(the)_S 83 _t
(left)_S 83 _t
(to)_S 83 _t
(be)_S 84 _t
(at)_S 83 _t
(least)_S 83 _t
("mincol")_S 83 _t
(characters)_S 83 _t
(long)_S 83 _t
(using)_S 83 _t
("padchar".)_S 1500 7563 _m
("padchar")_S 61 _t
(defaults)_S 61 _t
(to)_S 61 _t
(#\\space.)_S 1500 7131 _m
(For)_S 61 _t
(~%)_S 61 _t
(and)_S 61 _t
(~~,)_S 61 _t
(the)_S 61 _t
(full)_S 61 _t
(form)_S 61 _t
(is)_S 61 _t
(~n%)_S 61 _t
(or)_S 61 _t
(~n~.)_S 61 _t
("n")_S 61 _t
(copies)_S 61 _t
(\(default=1\))_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(character)_S 61 _t
(are)_S 61 _t
(output.)_S 1500 6699 _m
(For)_S 68 _t
(~&,)_S 68 _t
(the)_S 69 _t
(full)_S 68 _t
(form)_S 69 _t
(is)_S 68 _t
(~n&.)_S 68 _t
(~0&)_S 69 _t
(does)_S 68 _t
(nothing.)_S 69 _t
(Otherwise)_S 68 _t
(enough)_S 69 _t
(new)_S 68 _t
(line)_S 68 _t
(characters)_S 69 _t
(are)_S 68 _t
(emited)_S 69 _t
(to)_S 1500 6483 _m
(move)_S 61 _t
(down)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
("n"th)_S 61 _t
(new)_S 61 _t
(line)_S 61 _t
(\(default=1\).)_S 1500 6051 _m
(For)_S 61 _t
(~T)_S -13 _t
(,)_S 61 _t
(the)_S 61 _t
(full)_S 61 _t
(form)_S 61 _t
(is:)_S 2100 5619 _m
(~count,tabwidth@T)_S 1500 5187 _m
(The)_S 58 _t
(cursor)_S 58 _t
(is)_S 58 _t
(moved)_S 58 _t
(to)_S 58 _t
(column)_S 58 _t
("count")_S 58 _t
(\(default)_S 58 _t
(1\).)_S 58 _t
(If)_S 58 _t
(the)_S 58 _t
(cursor)_S 58 _t
(is)_S 58 _t
(initially)_S 58 _t
(at)_S 58 _t
(count)_S 58 _t
(or)_S 58 _t
(beyond,)_S 58 _t
(then)_S 58 _t
(the)_S 1500 4971 _m
(cursor)_S 56 _t
(is)_S 56 _t
(moved)_S 56 _t
(forward)_S 55 _t
(to)_S 56 _t
(the)_S 56 _t
(next)_S 56 _t
(position)_S 56 _t
(that)_S 56 _t
(is)_S 55 _t
(a)_S 56 _t
(multiple)_S 56 _t
(of)_S 56 _t
("tabwidth")_S 56 _t
(\(default)_S 56 _t
(1\))_S 55 _t
(columns)_S 56 _t
(beyond)_S 1500 4755 _m
(count.)_S 93 _t
(When)_S 93 _t
(the)_S 92 _t
(@)_S 93 _t
(modi\256er)_S 93 _t
(is)_S 93 _t
(used,)_S 92 _t
(then)_S 93 _t
(positioning)_S 93 _t
(is)_S 93 _t
(relative.)_S 92 _t
("count")_S 93 _t
(spaces)_S 93 _t
(are)_S 93 _t
(printed,)_S 93 _t
(then)_S 1500 4539 _m
(additional)_S 58 _t
(spaces)_S 58 _t
(are)_S 59 _t
(printed)_S 58 _t
(to)_S 58 _t
(make)_S 59 _t
(the)_S 58 _t
(column)_S 59 _t
(number)_S 58 _t
(be)_S 58 _t
(a)_S 59 _t
(multiple)_S 58 _t
(of)_S 58 _t
("tabwidth".)_S 59 _t
(Note)_S 58 _t
(that)_S 59 _t
(column)_S 1500 4323 _m
(calcuations)_S 61 _t
(will)_S 61 _t
(be)_S 61 _t
(incorrect)_S 61 _t
(if)_S 61 _t
(ASCII)_S 61 _t
(tab)_S 61 _t
(characters)_S 61 _t
(or)_S 61 _t
(ANSI)_S 61 _t
(cursor)_S 61 _t
(positioning)_S 61 _t
(sequences)_S 61 _t
(are)_S 61 _t
(used.)_S 1500 3891 _m
(For)_S 55 _t
(~\\n,)_S 54 _t
(if)_S 55 _t
(the)_S 54 _t
(colon)_S 55 _t
(modi\256er)_S 55 _t
(is)_S 54 _t
(used,)_S 55 _t
(then)_S 54 _t
(the)_S 55 _t
(format)_S 54 _t
(directive)_S 55 _t
(is)_S 54 _t
(ignored)_S 55 _t
(\(allowing)_S 55 _t
(embedded)_S 54 _t
(returns)_S 55 _t
(in)_S 1500 3675 _m
(the)_S 54 _t
(source)_S 54 _t
(for)_S 55 _t
(enhanced)_S 54 _t
(readability\).)_S 54 _t
(If)_S 54 _t
(the)_S 55 _t
(at-sign)_S 54 _t
(modi\256er)_S 54 _t
(is)_S 54 _t
(used,)_S 55 _t
(then)_S 54 _t
(a)_S 54 _t
(carriage)_S 54 _t
(return)_S 54 _t
(is)_S 55 _t
(emitted,)_S 54 _t
(and)_S 1500 3459 _m
(following)_S 61 _t
(whitespace)_S 61 _t
(is)_S 61 _t
(ignored.)_S 61 _t
_ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4509 11867 _m
(FILE)_S 61 _t
(I/O)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(69)_S 1500 10986 _m
/HelveticaR 660 _ff
(FILE)_S 73 _t
(I/O)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(Note)_S 51 _t
(that)_S 51 _t
(initially)_S -12 _t
(,)_S 51 _t
(when)_S 51 _t
(starting)_S 51 _t
(XLISP-PLUS,)_S 51 _t
(there)_S 51 _t
(are)_S 51 _t
(six)_S 51 _t
(system)_S 51 _t
(stream)_S 51 _t
(symbols)_S 51 _t
(which)_S 51 _t
(are)_S 51 _t
(associated)_S 1500 10334 _m
(with)_S 58 _t
(three)_S 57 _t
(streams.)_S 58 _t
(*TERMINAL-IO*)_S 57 _t
(is)_S 57 _t
(a)_S 58 _t
(special)_S 57 _t
(stream)_S 58 _t
(that)_S 57 _t
(is)_S 57 _t
(bound)_S 58 _t
(to)_S 57 _t
(the)_S 57 _t
(keyboard)_S 58 _t
(and)_S 57 _t
(display)_S -12 _t
(,)_S 57 _t
(and)_S 1500 10118 _m
(allows)_S 51 _t
(for)_S 51 _t
(interactive)_S 51 _t
(editing.)_S 51 _t
(*ST)_S -15 _t
(ANDARD-INPUT*)_S 51 _t
(is)_S 50 _t
(bound)_S 51 _t
(to)_S 51 _t
(standard)_S 51 _t
(input)_S 51 _t
(or)_S 51 _t
(to)_S 50 _t
(*TERMINAL-IO*)_S 1500 9902 _m
(if)_S 68 _t
(not)_S 68 _t
(redirected.)_S 69 _t
(*ST)_S -15 _t
(ANDARD-OUTPUT*)_S 68 _t
(is)_S 68 _t
(bound)_S 68 _t
(to)_S 68 _t
(standard)_S 68 _t
(output)_S 68 _t
(or)_S 68 _t
(to)_S 68 _t
(*TERMINAL-IO*)_S 68 _t
(if)_S 68 _t
(not)_S 1500 9686 _m
(redirected.)_S 74 _t
(*ERROR-OUTPUT*)_S 75 _t
(\(error)_S 75 _t
(message)_S 75 _t
(output\),)_S 74 _t
(*TRACE-OUTPUT*)_S 75 _t
(\(for)_S 74 _t
(TRACE)_S 75 _t
(and)_S 75 _t
(TIME)_S 1500 9470 _m
(functions\),)_S 41 _t
(and)_S 41 _t
(*DEBUG-IO*)_S 42 _t
(\(break)_S 41 _t
(loop)_S 41 _t
(i/o,)_S 41 _t
(and)_S 41 _t
(messages\))_S 41 _t
(are)_S 41 _t
(all)_S 41 _t
(bound)_S 41 _t
(to)_S 41 _t
(*TERMINAL-IO*.)_S 41 _t
(Standard)_S 1500 9254 _m
(input)_S 61 _t
(and)_S 61 _t
(output)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(redirected)_S 61 _t
(on)_S 61 _t
(most)_S 61 _t
(systems.)_S 1500 8822 _m
(File)_S 63 _t
(streams)_S 62 _t
(are)_S 63 _t
(printed)_S 62 _t
(using)_S 63 _t
(the)_S 62 _t
(#<)_S 63 _t
(format)_S 62 _t
(that)_S 62 _t
(cannot)_S 63 _t
(be)_S 62 _t
(read)_S 63 _t
(by)_S 62 _t
(the)_S 63 _t
(reader)_S -10 _t
(.)_S 62 _t
(Console,)_S 63 _t
(standard)_S 62 _t
(input,)_S 1500 8606 _m
(standard)_S 57 _t
(output,)_S 57 _t
(and)_S 56 _t
(closed)_S 57 _t
(streams)_S 57 _t
(are)_S 56 _t
(explicitly)_S 57 _t
(indicated.)_S 57 _t
(Other)_S 56 _t
(\256le)_S 57 _t
(streams)_S 57 _t
(will)_S 57 _t
(typically)_S 56 _t
(indicate)_S 57 _t
(the)_S 1500 8390 _m
(name)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(attached)_S 61 _t
(\256le.)_S 1500 7958 _m
(When)_S 48 _t
(the)_S 48 _t
(transcript)_S 47 _t
(is)_S 48 _t
(active)_S 47 _t
(\(either)_S 48 _t
(-t)_S 47 _t
(on)_S 48 _t
(the)_S 47 _t
(command)_S 48 _t
(line)_S 48 _t
(or)_S 47 _t
(the)_S 48 _t
(DRIBBLE)_S 47 _t
(function\),)_S 48 _t
(all)_S 48 _t
(characters)_S 47 _t
(that)_S 1500 7742 _m
(would)_S 61 _t
(be)_S 61 _t
(sent)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(display)_S 61 _t
(via)_S 61 _t
(*TERMINAL-IO*)_S 61 _t
(are)_S 61 _t
(also)_S 61 _t
(placed)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(transcript)_S 61 _t
(\256le.)_S 1500 7310 _m
(*TERMINAL-IO*)_S 58 _t
(should)_S 59 _t
(not)_S 58 _t
(be)_S 59 _t
(changed.)_S 58 _t
(Any)_S 59 _t
(other)_S 58 _t
(system)_S 59 _t
(streams)_S 58 _t
(that)_S 59 _t
(are)_S 58 _t
(changed)_S 59 _t
(by)_S 58 _t
(an)_S 59 _t
(application)_S 1500 7094 _m
(should)_S 61 _t
(be)_S 61 _t
(restored)_S 61 _t
(to)_S 61 _t
(their)_S 61 _t
(original)_S 61 _t
(values.)_S 1500 6662 _m
(\(read-char)_S 61 _t
([<stream>]\))_S 122 _t
5858 6662 _m
(READ)_S 61 _t
(A)_S 61 _t
(CHARACTER)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(STREAM)_S 2100 6446 _m
(<stream>)_S 3300 6446 _m
(the)_S 61 _t
(input)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 6230 _m
(returns)_S 3300 6230 _m
(the)_S 61 _t
(character)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(at)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(\256le)_S 1500 5798 _m
(\(peek-char)_S 61 _t
([<\257ag>)_S 61 _t
([<stream>]]\))_S 122 _t
6418 5798 _m
(PEEK)_S 61 _t
(A)_S -20 _t
(T)_S 61 _t
(THE)_S 61 _t
(NEXT)_S 61 _t
(CHARACTER)_S 2100 5582 _m
(<\257ag>)_S 3300 5582 _m
(\257ag)_S 61 _t
(for)_S 61 _t
(skipping)_S 61 _t
(white)_S 61 _t
(space)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(NIL\))_S 2100 5366 _m
(<stream>)_S 3300 5366 _m
(the)_S 61 _t
(input)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 5150 _m
(returns)_S 3300 5150 _m
(the)_S 61 _t
(character)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(at)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(\256le)_S 1500 4718 _m
(\(write-char)_S 61 _t
(<ch>)_S 61 _t
([<stream>]\))_S 122 _t
6055 4718 _m
(WRITE)_S 61 _t
(A)_S 61 _t
(CHARACTER)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(STREAM)_S 2100 4502 _m
(<ch>)_S 3300 4502 _m
(the)_S 61 _t
(character)_S 61 _t
(to)_S 61 _t
(write)_S 2100 4286 _m
(<stream>)_S 3300 4286 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 4070 _m
(returns)_S 3300 4070 _m
(the)_S 61 _t
(character)_S 1500 3638 _m
(\(read-line)_S 61 _t
([<stream>]\))_S 122 _t
6551 3638 _m
(READ)_S 61 _t
(A)_S 61 _t
(LINE)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(STREAM)_S 2100 3422 _m
(<stream>)_S 3300 3422 _m
(the)_S 61 _t
(input)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 3206 _m
(returns)_S 3300 3206 _m
(the)_S 61 _t
(string)_S 61 _t
(excluding)_S 61 _t
(the)_S 61 _t
(#\\newline,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(at)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(\256le)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4509 11867 _m
(FILE)_S 61 _t
(I/O)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(70)_S 1500 11235 _m
(\(open)_S 61 _t
(<fname>)_S 61 _t
(&key)_S 61 _t
(:direction)_S 61 _t
(:element-type)_S 61 _t
(:if-exists)_S 61 _t
(:if-does-not-exist\))_S 7375 11019 _m
(OPEN)_S 61 _t
(A)_S 61 _t
(FILE)_S 61 _t
(STREAM)_S 2100 10803 _m
(The)_S 62 _t
(function)_S 61 _t
(OPEN)_S 62 _t
(has)_S 61 _t
(been)_S 62 _t
(signi\256cantly)_S 61 _t
(enhanced)_S 62 _t
(over)_S 61 _t
(original)_S 62 _t
(XLISP)_S -20 _t
(.)_S 61 _t
(The)_S 62 _t
(original)_S 61 _t
(function)_S 2100 10587 _m
(only)_S 67 _t
(had)_S 67 _t
(the)_S 67 _t
(:direction)_S 67 _t
(keyword)_S 67 _t
(ar)_S -3 _t
(gument,)_S 68 _t
(which)_S 67 _t
(could)_S 67 _t
(only)_S 67 _t
(have)_S 67 _t
(the)_S 67 _t
(values)_S 68 _t
(:input)_S 67 _t
(or)_S 67 _t
(:output.)_S 2100 10371 _m
(When)_S 83 _t
(used)_S 82 _t
(with)_S 83 _t
(the)_S 82 _t
(:output)_S 82 _t
(keyword,)_S 83 _t
(it)_S 82 _t
(was)_S 82 _t
(equivalent)_S 83 _t
(to)_S 82 _t
(\(open)_S 83 _t
(<fname>)_S 82 _t
(:direction)_S 82 _t
(:output)_S 2100 10155 _m
(:if-exists)_S 65 _t
(:supersede\).)_S 65 _t
(A)_S 65 _t
(maximum)_S 65 _t
(of)_S 65 _t
(ten)_S 65 _t
(\256les)_S 65 _t
(can)_S 65 _t
(be)_S 65 _t
(open)_S 65 _t
(at)_S 64 _t
(any)_S 65 _t
(one)_S 65 _t
(time,)_S 65 _t
(including)_S 65 _t
(any)_S 65 _t
(\256les)_S 2100 9939 _m
(open)_S 45 _t
(via)_S 44 _t
(the)_S 45 _t
(LOAD,)_S 45 _t
(DRIBBLE,)_S 45 _t
(SA)_S -23 _t
(VE)_S 44 _t
(and)_S 45 _t
(REST)_S -3 _t
(ORE)_S 45 _t
(commands.)_S 44 _t
(The)_S 45 _t
(open)_S 45 _t
(command)_S 44 _t
(may)_S 45 _t
(force)_S 2100 9723 _m
(a)_S 61 _t
(garbage)_S 61 _t
(collection)_S 61 _t
(to)_S 61 _t
(reclaim)_S 61 _t
(\256le)_S 61 _t
(slots)_S 61 _t
(used)_S 61 _t
(by)_S 61 _t
(unbound)_S 61 _t
(\256le)_S 61 _t
(streams.)_S 2100 9291 _m
(<fname>)_S 3900 9291 _m
(the)_S 55 _t
(\256le)_S 54 _t
(name)_S 55 _t
(string,)_S 55 _t
(symbol,)_S 54 _t
(or)_S 55 _t
(\256le)_S 55 _t
(stream)_S 54 _t
(created)_S 55 _t
(via)_S 54 _t
(OPEN.)_S 55 _t
(In)_S 55 _t
(the)_S 54 _t
(last)_S 3900 9075 _m
(case,)_S 65 _t
(the)_S 65 _t
(name)_S 65 _t
(is)_S 65 _t
(used)_S 65 _t
(to)_S 65 _t
(open)_S 65 _t
(a)_S 65 _t
(second)_S 65 _t
(stream)_S 65 _t
(on)_S 65 _t
(the)_S 65 _t
(same)_S 65 _t
(\256le)_S 65 _t
(--)_S 65 _t
(this)_S 3900 8859 _m
(can)_S 61 _t
(cause)_S 61 _t
(problems)_S 61 _t
(if)_S 61 _t
(one)_S 61 _t
(or)_S 61 _t
(more)_S 61 _t
(streams)_S 61 _t
(is)_S 61 _t
(used)_S 61 _t
(for)_S 61 _t
(writing.)_S 2100 8643 _m
(:direction)_S 3900 8643 _m
(Read)_S 61 _t
(and)_S 61 _t
(write)_S 61 _t
(permission)_S 61 _t
(for)_S 61 _t
(stream)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(:input\).)_S 2340 8427 _m
(:input)_S 3900 8427 _m
(Open)_S 61 _t
(\256le)_S 61 _t
(for)_S 61 _t
(read)_S 61 _t
(operations)_S 61 _t
(only)_S -12 _t
(.)_S 2340 8211 _m
(:probe)_S 3900 8211 _m
(Open)_S 61 _t
(\256le)_S 61 _t
(for)_S 61 _t
(reading,)_S 61 _t
(then)_S 61 _t
(close)_S 61 _t
(it)_S 61 _t
(\(use)_S 61 _t
(to)_S 61 _t
(test)_S 61 _t
(for)_S 61 _t
(\256le)_S 61 _t
(existance\))_S 2340 7995 _m
(:output)_S 3900 7995 _m
(Open)_S 61 _t
(\256le)_S 61 _t
(for)_S 61 _t
(write)_S 61 _t
(operations)_S 61 _t
(only)_S -12 _t
(.)_S 2340 7779 _m
(:io)_S 3900 7779 _m
(Like)_S 61 _t
(:output,)_S 61 _t
(but)_S 61 _t
(reading)_S 61 _t
(also)_S 61 _t
(allowed.)_S 2100 7563 _m
(:element-type)_S 3900 7563 _m
(FIXNUM)_S 69 _t
(or)_S 70 _t
(CHARACTER)_S 70 _t
(\(default)_S 69 _t
(is)_S 70 _t
(CHARACTER\),)_S 69 _t
(as)_S 70 _t
(returned)_S 70 _t
(by)_S 3900 7347 _m
(type-of)_S 91 _t
(function)_S 90 _t
(\(on)_S 90 _t
(page)_S 91 _t
(78\).)_S 90 _t
(Files)_S 91 _t
(opened)_S 90 _t
(with)_S 90 _t
(type)_S 91 _t
(FIXNUM)_S 90 _t
(are)_S 3900 7131 _m
(binary)_S 68 _t
(\256les)_S 69 _t
(instead)_S 68 _t
(of)_S 68 _t
(ascii,)_S 69 _t
(which)_S 68 _t
(means)_S 68 _t
(no)_S 68 _t
(crlf)_S 69 _t
(to/from)_S 68 _t
(lf)_S 68 _t
(conversion)_S 3900 6915 _m
(takes)_S 55 _t
(place,)_S 55 _t
(and)_S 55 _t
(control-Z)_S 55 _t
(will)_S 55 _t
(not)_S 55 _t
(terminate)_S 55 _t
(an)_S 55 _t
(input)_S 55 _t
(\256le.)_S 55 _t
(It)_S 55 _t
(is)_S 55 _t
(the)_S 55 _t
(intent)_S 3900 6699 _m
(of)_S 70 _t
(Common)_S 69 _t
(Lisp)_S 70 _t
(that)_S 70 _t
(binary)_S 69 _t
(\256les)_S 70 _t
(only)_S 70 _t
(be)_S 69 _t
(accessed)_S 70 _t
(with)_S 70 _t
(read-byte)_S 69 _t
(and)_S 3900 6483 _m
(write-byte)_S 65 _t
(while)_S 66 _t
(ascii)_S 65 _t
(\256les)_S 66 _t
(be)_S 65 _t
(accessed)_S 66 _t
(with)_S 65 _t
(any)_S 66 _t
(function)_S 65 _t
(but)_S 66 _t
(read-byte)_S 3900 6267 _m
(and)_S 61 _t
(write-byte.)_S 61 _t
(XLISP)_S 61 _t
(does)_S 61 _t
(not)_S 61 _t
(enforce)_S 61 _t
(that)_S 61 _t
(distinction.)_S 2100 6051 _m
(:if-exists)_S 3900 6051 _m
(action)_S 48 _t
(to)_S 47 _t
(take)_S 48 _t
(if)_S 47 _t
(\256le)_S 48 _t
(exists.)_S 47 _t
(Ar)_S -3 _t
(gument)_S 48 _t
(ignored)_S 47 _t
(for)_S 48 _t
(:input)_S 47 _t
(\(\256le)_S 48 _t
(is)_S 47 _t
(positioned)_S 3900 5835 _m
(at)_S 61 _t
(start\))_S 61 _t
(or)_S 61 _t
(:probe)_S 61 _t
(\(\256le)_S 61 _t
(is)_S 61 _t
(closed\))_S 2340 5619 _m
(:error)_S 3900 5619 _m
(give)_S 61 _t
(error)_S 61 _t
(message)_S 2340 5403 _m
(:rename)_S 3900 5403 _m
(rename)_S 94 _t
(\256le)_S 94 _t
(to)_S 94 _t
(generated)_S 94 _t
(backup)_S 94 _t
(name,)_S 94 _t
(then)_S 94 _t
(open)_S 95 _t
(a)_S 94 _t
(new)_S 94 _t
(\256le)_S 94 _t
(of)_S 94 _t
(the)_S 3900 5187 _m
(original)_S 61 _t
(name.)_S 61 _t
(This)_S 61 _t
(is)_S 61 _t
(the)_S 61 _t
(default)_S 61 _t
(action)_S 2340 4971 _m
(:new-version)_S 3900 4971 _m
(same)_S 61 _t
(as)_S 61 _t
(:rename)_S 2340 4755 _m
(:overwrite)_S 3900 4755 _m
(\256le)_S 61 _t
(is)_S 61 _t
(positioned)_S 61 _t
(to)_S 61 _t
(start,)_S 61 _t
(original)_S 61 _t
(data)_S 61 _t
(intact)_S 2340 4539 _m
(:append)_S 3900 4539 _m
(\256le)_S 61 _t
(is)_S 61 _t
(positioned)_S 61 _t
(to)_S 61 _t
(end)_S 2340 4323 _m
(:supersede)_S 3900 4323 _m
(delete)_S 61 _t
(original)_S 61 _t
(\256le)_S 61 _t
(and)_S 61 _t
(open)_S 61 _t
(new)_S 61 _t
(\256le)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(same)_S 61 _t
(name)_S 2340 4107 _m
(:rename-and-delete)_S 3900 4107 _m
(same)_S 61 _t
(as)_S 61 _t
(:supersede)_S 2340 3891 _m
(NIL)_S 3900 3891 _m
(close)_S 61 _t
(\256le)_S 61 _t
(and)_S 61 _t
(return)_S 61 _t
(NIL)_S 2100 3675 _m
(:if-does-not-exist)_S 3900 3675 _m
(action)_S 61 _t
(to)_S 61 _t
(take)_S 61 _t
(if)_S 61 _t
(\256le)_S 61 _t
(does)_S 61 _t
(not)_S 61 _t
(exist.)_S 2340 3459 _m
(:error)_S 3900 3459 _m
(give)_S 61 _t
(error)_S 61 _t
(message)_S 61 _t
(\(default)_S 61 _t
(for)_S 61 _t
(:input,)_S 61 _t
(or)_S 61 _t
(:overwrite)_S 61 _t
(or)_S 61 _t
(:append\))_S 2340 3243 _m
(:create)_S 3900 3243 _m
(create)_S 96 _t
(a)_S 96 _t
(new)_S 96 _t
(\256le)_S 96 _t
(\(default)_S 96 _t
(for)_S 97 _t
(:output)_S 96 _t
(or)_S 96 _t
(:io)_S 96 _t
(when)_S 96 _t
(not)_S 96 _t
(:overwrite)_S 97 _t
(or)_S 3900 3027 _m
(:append\))_S 2340 2811 _m
(NIL)_S 3900 2811 _m
(return)_S 61 _t
(NIL)_S 61 _t
(\(default)_S 61 _t
(for)_S 61 _t
(:probe\))_S 2100 2595 _m
(returns)_S 3900 2595 _m
(a)_S 61 _t
(\256le)_S 61 _t
(stream,)_S 61 _t
(or)_S 61 _t
(sometimes)_S 61 _t
(NIL)_S 1500 2163 _m
(\(close)_S 61 _t
(<stream>\))_S 122 _t
7273 2163 _m
(CLOSE)_S 61 _t
(A)_S 61 _t
(FILE)_S 61 _t
(STREAM)_S 2100 1947 _m
(The)_S 61 _t
(stream)_S 61 _t
(becomes)_S 61 _t
(a)_S 61 _t
("closed)_S 61 _t
(stream.")_S 61 _t
(Note)_S 61 _t
(that)_S 61 _t
(unbound)_S 61 _t
(\256le)_S 61 _t
(streams)_S 61 _t
(are)_S 61 _t
(closed)_S 61 _t
(automatically)_S 2100 1731 _m
(during)_S 61 _t
(a)_S 61 _t
(garbage)_S 61 _t
(collection.)_S 2100 1515 _m
(<stream>)_S 3300 1515 _m
(the)_S 61 _t
(stream,)_S 61 _t
(which)_S 61 _t
(may)_S 61 _t
(be)_S 61 _t
(a)_S 61 _t
(string)_S 61 _t
(stream)_S 2100 1299 _m
(returns)_S 3300 1299 _m
(t)_S 61 _t
(if)_S 61 _t
(stream)_S 61 _t
(closed,)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(terminal)_S 61 _t
(\(cannot)_S 61 _t
(be)_S 61 _t
(closed\))_S 61 _t
(or)_S 61 _t
(already)_S 61 _t
(closed.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4509 11867 _m
(FILE)_S 61 _t
(I/O)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(71)_S 1500 11235 _m
(\(delete-\256le)_S 61 _t
(<fname>\))_S 7966 11235 _m
(DELETE)_S 61 _t
(A)_S 61 _t
(FILE)_S 2100 11019 _m
(<fname>)_S 3300 11019 _m
(\256le)_S 61 _t
(name)_S 61 _t
(string,)_S 61 _t
(symbol)_S 61 _t
(or)_S 61 _t
(a)_S 61 _t
(stream)_S 61 _t
(opened)_S 61 _t
(with)_S 61 _t
(OPEN)_S 2100 10803 _m
(returns)_S 3300 10803 _m
(t)_S 59 _t
(if)_S 59 _t
(\256le)_S 60 _t
(does)_S 59 _t
(not)_S 59 _t
(exist)_S 59 _t
(or)_S 60 _t
(is)_S 59 _t
(deleted.)_S 59 _t
(If)_S 59 _t
(<fname>)_S 60 _t
(is)_S 59 _t
(a)_S 59 _t
(stream,)_S 59 _t
(the)_S 59 _t
(stream)_S 60 _t
(is)_S 59 _t
(closed)_S 3300 10587 _m
(before)_S 61 _t
(the)_S 61 _t
(\256le)_S 61 _t
(is)_S 61 _t
(deleted.)_S 61 _t
(An)_S 61 _t
(error)_S 61 _t
(occurs)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(\256le)_S 61 _t
(cannot)_S 61 _t
(be)_S 61 _t
(deleted.)_S 1500 10155 _m
(\(truename)_S 61 _t
(<fname>\))_S 6654 10155 _m
(OBT)_S -15 _t
(AIN)_S 61 _t
(THE)_S 61 _t
(FILE)_S 61 _t
(P)_S -17 _t
(A)_S -20 _t
(TH)_S 61 _t
(NAME)_S 2100 9939 _m
(<fname>)_S 3300 9939 _m
(\256le)_S 61 _t
(name)_S 61 _t
(string,)_S 61 _t
(symbol,)_S 61 _t
(or)_S 61 _t
(a)_S 61 _t
(stream)_S 61 _t
(opened)_S 61 _t
(with)_S 61 _t
(OPEN)_S 2100 9723 _m
(returns)_S 3300 9723 _m
(string)_S 61 _t
(representing)_S 61 _t
(the)_S 61 _t
(true)_S 61 _t
(\256le)_S 61 _t
(name)_S 61 _t
(\(absolute)_S 61 _t
(path)_S 61 _t
(to)_S 61 _t
(\256le\).)_S 1500 9291 _m
(\(with-open-\256le)_S 61 _t
(\(<var>)_S 61 _t
(<fname>)_S 61 _t
([<kar)_S -3 _t
(g>...]\))_S 61 _t
([<expr>...]\))_S 7103 9075 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TE)_S 61 _t
(USING)_S 61 _t
(A)_S 61 _t
(FILE)_S 2100 8859 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(macro.)_S 61 _t
(File)_S 61 _t
(will)_S 61 _t
(always)_S 61 _t
(be)_S 61 _t
(closed)_S 61 _t
(upon)_S 61 _t
(completion)_S 2100 8643 _m
(<var>)_S 3300 8643 _m
(symbol)_S 61 _t
(name)_S 61 _t
(to)_S 61 _t
(bind)_S 61 _t
(stream)_S 61 _t
(to)_S 61 _t
(while)_S 61 _t
(evaluating)_S 61 _t
(expresssions)_S 61 _t
(\(quoted\))_S 2100 8427 _m
(<fname>)_S 3300 8427 _m
(\256le)_S 61 _t
(name)_S 61 _t
(string)_S 61 _t
(or)_S 61 _t
(symbol)_S 2100 8211 _m
(<kar)_S -3 _t
(g>)_S 3300 8211 _m
(keyword)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(for)_S 61 _t
(the)_S 61 _t
(implicit)_S 61 _t
(open)_S 61 _t
(command)_S 2100 7995 _m
(<expr>)_S 3300 7995 _m
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 61 _t
(while)_S 61 _t
(\256le)_S 61 _t
(is)_S 61 _t
(open)_S 61 _t
(\(implicit)_S 61 _t
(progn\))_S 2100 7779 _m
(returns)_S 3300 7779 _m
(value)_S 61 _t
(of)_S 61 _t
(last)_S 61 _t
(<expr>.)_S 1500 7347 _m
(\(read-byte)_S 61 _t
([<stream>]\))_S 122 _t
6489 7347 _m
(READ)_S 61 _t
(A)_S 61 _t
(BYTE)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(STREAM)_S 2100 7131 _m
(<stream>)_S 3300 7131 _m
(the)_S 61 _t
(input)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 6915 _m
(returns)_S 3300 6915 _m
(the)_S 61 _t
(byte)_S 61 _t
(\(integer\))_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(at)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(\256le)_S 1500 6483 _m
(\(write-byte)_S 61 _t
(<byte>)_S 61 _t
([<stream>]\))_S 122 _t
6686 6483 _m
(WRITE)_S 61 _t
(A)_S 61 _t
(BYTE)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(STREAM)_S 2100 6267 _m
(<byte>)_S 3300 6267 _m
(the)_S 61 _t
(byte)_S 61 _t
(to)_S 61 _t
(write)_S 61 _t
(\(integer\))_S 2100 6051 _m
(<stream>)_S 3300 6051 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 2100 5835 _m
(returns)_S 3300 5835 _m
(the)_S 61 _t
(byte)_S 61 _t
(\(integer\))_S 1500 5403 _m
(\(\256le-length)_S 61 _t
(<stream>\))_S 7406 5403 _m
(GET)_S 61 _t
(LENGTH)_S 61 _t
(OF)_S 61 _t
(FILE)_S 2100 5187 _m
(For)_S 57 _t
(an)_S 57 _t
(ascii)_S 57 _t
(\256le,)_S 57 _t
(the)_S 56 _t
(length)_S 57 _t
(reported)_S 57 _t
(may)_S 57 _t
(be)_S 56 _t
(lar)_S -3 _t
(ger)_S 57 _t
(than)_S 57 _t
(the)_S 57 _t
(number)_S 57 _t
(of)_S 57 _t
(characters)_S 56 _t
(read)_S 57 _t
(or)_S 57 _t
(written)_S 2100 4971 _m
(because)_S 61 _t
(of)_S 61 _t
(CR)_S 61 _t
(conversion.)_S 2100 4755 _m
(<stream>)_S 3300 4755 _m
(the)_S 61 _t
(\256le)_S 61 _t
(stream)_S 61 _t
(\(should)_S 61 _t
(be)_S 61 _t
(disk)_S 61 _t
(\256le\))_S 2100 4539 _m
(returns)_S 3300 4539 _m
(length)_S 61 _t
(of)_S 61 _t
(\256le,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(cannot)_S 61 _t
(be)_S 61 _t
(determined.)_S 1500 4107 _m
(\(\256le-position)_S 61 _t
(<stream>)_S 61 _t
([<expr>]\))_S 6897 4107 _m
(GET)_S 61 _t
(OR)_S 61 _t
(SET)_S 61 _t
(FILE)_S 61 _t
(POSITION)_S 2100 3891 _m
(For)_S 51 _t
(an)_S 51 _t
(ascii)_S 50 _t
(\256le,)_S 51 _t
(the)_S 51 _t
(\256le)_S 50 _t
(position)_S 51 _t
(may)_S 51 _t
(not)_S 50 _t
(be)_S 51 _t
(the)_S 51 _t
(same)_S 50 _t
(as)_S 51 _t
(the)_S 51 _t
(number)_S 50 _t
(of)_S 51 _t
(characters)_S 51 _t
(read)_S 51 _t
(or)_S 50 _t
(written)_S 2100 3675 _m
(because)_S 84 _t
(of)_S 85 _t
(CR)_S 84 _t
(conversion.)_S 84 _t
(It)_S 84 _t
(will)_S 85 _t
(be)_S 84 _t
(correct)_S 84 _t
(when)_S 85 _t
(using)_S 84 _t
(\256le-position)_S 84 _t
(to)_S 85 _t
(position)_S 84 _t
(a)_S 84 _t
(\256le)_S 85 _t
(at)_S 84 _t
(a)_S 2100 3459 _m
(location)_S 61 _t
(earlier)_S 61 _t
(reported)_S 61 _t
(by)_S 61 _t
(\256le-position.)_S 2100 3243 _m
(<stream>)_S 3300 3243 _m
(the)_S 61 _t
(\256le)_S 61 _t
(stream)_S 61 _t
(\(should)_S 61 _t
(be)_S 61 _t
(a)_S 61 _t
(disk)_S 61 _t
(\256le\))_S 2100 3027 _m
(<expr>)_S 3300 3027 _m
(desired)_S 56 _t
(\256le)_S 56 _t
(position,)_S 56 _t
(if)_S 57 _t
(setting)_S 56 _t
(position.)_S 57 _t
(Can)_S 56 _t
(also)_S 57 _t
(be)_S 56 _t
(:start)_S 56 _t
(for)_S 57 _t
(start)_S 56 _t
(of)_S 57 _t
(\256le)_S 56 _t
(or)_S 57 _t
(:end)_S 3300 2811 _m
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(\256le.)_S 2100 2595 _m
(returns)_S 3300 2595 _m
(if)_S 57 _t
(setting)_S 57 _t
(position,)_S 57 _t
(and)_S 57 _t
(successful,)_S 57 _t
(then)_S 57 _t
(T)_S -10 _t
(;)_S 56 _t
(if)_S 57 _t
(getting)_S 57 _t
(position)_S 57 _t
(and)_S 57 _t
(successful)_S 57 _t
(then)_S 3300 2379 _m
(the)_S 61 _t
(position;)_S 61 _t
(otherwise)_S 61 _t
(NIL)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4122 11867 _m
(STRING)_S 61 _t
(STREAM)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(72)_S 1500 10986 _m
/HelveticaR 660 _ff
(STRING)_S 73 _t
(STREAM)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(These)_S 70 _t
(functions)_S 70 _t
(operate)_S 70 _t
(on)_S 70 _t
(unnamed)_S 70 _t
(streams.)_S 71 _t
(An)_S 70 _t
(unnamed)_S 70 _t
(output)_S 70 _t
(stream)_S 70 _t
(collects)_S 70 _t
(characters)_S 71 _t
(sent)_S 70 _t
(to)_S 70 _t
(it)_S 1500 10334 _m
(when)_S 52 _t
(it)_S 51 _t
(is)_S 51 _t
(used)_S 51 _t
(as)_S 52 _t
(the)_S 51 _t
(destination)_S 51 _t
(of)_S 51 _t
(any)_S 51 _t
(output)_S 51 _t
(function.)_S 52 _t
(The)_S 51 _t
(functions)_S 51 _t
('get-output-stream')_S 51 _t
(string)_S 51 _t
(and)_S 51 _t
(list)_S 1500 10118 _m
(return)_S 61 _t
(a)_S 61 _t
(sting)_S 61 _t
(or)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(characters.)_S 1500 9686 _m
(An)_S 46 _t
(unnamed)_S 46 _t
(input)_S 47 _t
(stream)_S 46 _t
(is)_S 46 _t
(setup)_S 47 _t
(with)_S 46 _t
(the)_S 46 _t
('make-string-input-stream')_S 46 _t
(function)_S 46 _t
(and)_S 47 _t
(returns)_S 46 _t
(each)_S 46 _t
(character)_S 1500 9470 _m
(of)_S 61 _t
(the)_S 61 _t
(string)_S 61 _t
(when)_S 61 _t
(it)_S 61 _t
(is)_S 61 _t
(used)_S 61 _t
(as)_S 61 _t
(the)_S 61 _t
(source)_S 61 _t
(of)_S 61 _t
(any)_S 61 _t
(input)_S 61 _t
(function.)_S 1500 9038 _m
(Note)_S 53 _t
(that)_S 52 _t
(there)_S 53 _t
(is)_S 53 _t
(no)_S 52 _t
(difference)_S 53 _t
(between)_S 53 _t
(unnamed)_S 52 _t
(input)_S 53 _t
(and)_S 52 _t
(output)_S 53 _t
(streams.)_S 53 _t
(Unnamed)_S 52 _t
(input)_S 53 _t
(streams)_S 52 _t
(may)_S 1500 8822 _m
(be)_S 53 _t
(written)_S 53 _t
(to)_S 53 _t
(by)_S 53 _t
(output)_S 53 _t
(functions,)_S 53 _t
(in)_S 53 _t
(which)_S 53 _t
(case)_S 53 _t
(the)_S 53 _t
(characters)_S 53 _t
(are)_S 53 _t
(appended)_S 53 _t
(to)_S 53 _t
(the)_S 53 _t
(tail)_S 53 _t
(end)_S 54 _t
(of)_S 53 _t
(the)_S 53 _t
(stream.)_S 1500 8606 _m
(Unnamed)_S 107 _t
(output)_S 107 _t
(streams)_S 107 _t
(may)_S 107 _t
(also)_S 107 _t
(be)_S 108 _t
(\(destructively\))_S 107 _t
(read)_S 107 _t
(by)_S 107 _t
(any)_S 108 _t
(input)_S 107 _t
(function)_S 107 _t
(as)_S 107 _t
(well)_S 108 _t
(as)_S 107 _t
(the)_S 1500 8390 _m
(get-output-stream)_S 61 _t
(functions.)_S 1500 7958 _m
(\(make-string-input-stream)_S 61 _t
(<str>)_S 61 _t
([<start>)_S 61 _t
([<end>]]\))_S 2100 7742 _m
(<str>)_S 3300 7742 _m
(the)_S 61 _t
(string)_S 2100 7526 _m
(<start>)_S 3300 7526 _m
(the)_S 61 _t
(starting)_S 61 _t
(offset)_S 2100 7310 _m
(<end>)_S 3300 7310 _m
(the)_S 61 _t
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(for)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string)_S 2100 7094 _m
(returns)_S 3300 7094 _m
(an)_S 61 _t
(unnamed)_S 61 _t
(stream)_S 61 _t
(that)_S 61 _t
(reads)_S 61 _t
(from)_S 61 _t
(the)_S 61 _t
(string)_S 1500 6662 _m
(\(make-string-output-stream\))_S 2100 6446 _m
(returns)_S 3300 6446 _m
(an)_S 61 _t
(unnamed)_S 61 _t
(output)_S 61 _t
(stream)_S 1500 6014 _m
(\(get-output-stream-string)_S 61 _t
(<stream>\))_S 2100 5798 _m
(The)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(is)_S 61 _t
(emptied)_S 61 _t
(by)_S 61 _t
(this)_S 61 _t
(function)_S 2100 5582 _m
(<stream>)_S 3300 5582 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 2100 5366 _m
(returns)_S 3300 5366 _m
(the)_S 61 _t
(output)_S 61 _t
(so)_S 61 _t
(far)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(string)_S 1500 4934 _m
(\(get-output-stream-list)_S 61 _t
(<stream>\))_S 2100 4718 _m
(The)_S 61 _t
(output)_S 61 _t
(stream)_S 61 _t
(is)_S 61 _t
(emptied)_S 61 _t
(by)_S 61 _t
(this)_S 61 _t
(function)_S 2100 4502 _m
(<stream>)_S 3300 4502 _m
(the)_S 61 _t
(output)_S 61 _t
(stream)_S 2100 4286 _m
(returns)_S 3300 4286 _m
(the)_S 61 _t
(output)_S 61 _t
(so)_S 61 _t
(far)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(list)_S 1500 3854 _m
(\(with-input-from-string)_S 61 _t
(\(<var>)_S 61 _t
(<str>)_S 61 _t
(&key)_S 61 _t
(:start)_S 61 _t
(:end)_S 61 _t
(:index\))_S 61 _t
([<expr>...]\))_S 2100 3638 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(macro)_S 2100 3422 _m
(<var>)_S 3300 3422 _m
(symbol)_S 61 _t
(that)_S 61 _t
(stream)_S 61 _t
(is)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(during)_S 61 _t
(execution)_S 61 _t
(of)_S 61 _t
(expressions)_S 61 _t
(\(quoted\))_S 2100 3206 _m
(<str>)_S 3300 3206 _m
(the)_S 61 _t
(string)_S 2100 2990 _m
(:start)_S 3300 2990 _m
(starting)_S 61 _t
(offset)_S 61 _t
(into)_S 61 _t
(string)_S 61 _t
(\(default)_S 61 _t
(0\))_S 2100 2774 _m
(:end)_S 3300 2774 _m
(ending)_S 61 _t
(offset)_S 61 _t
(+)_S 61 _t
(1)_S 122 _t
(\(default,)_S 61 _t
(or)_S 61 _t
(NIL,)_S 61 _t
(is)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string\))_S 2100 2558 _m
(:index)_S 3300 2558 _m
(setf)_S 51 _t
(place)_S 52 _t
(form)_S 51 _t
(which)_S 51 _t
(gets)_S 51 _t
(\256nal)_S 51 _t
(index)_S 51 _t
(into)_S 51 _t
(string)_S 51 _t
(after)_S 51 _t
(last)_S 51 _t
(expression)_S 51 _t
(is)_S 51 _t
(executed)_S 3300 2342 _m
(\(quoted\))_S 2100 2126 _m
(<expr>)_S 3300 2126 _m
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 61 _t
(\(implicit)_S 61 _t
(progn\))_S 2100 1910 _m
(returns)_S 3300 1910 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(<expr>)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4122 11867 _m
(STRING)_S 61 _t
(STREAM)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(73)_S 1500 11235 _m
(\(with-output-to-string)_S 61 _t
(\(<var>\))_S 61 _t
([<expr>...]\))_S 2100 11019 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(common.lsp)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(macro)_S 2100 10803 _m
(<var>)_S 3300 10803 _m
(symbol)_S 61 _t
(that)_S 61 _t
(stream)_S 61 _t
(is)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(during)_S 61 _t
(execution)_S 61 _t
(of)_S 61 _t
(expressions)_S 61 _t
(\(quoted\))_S 2100 10587 _m
(<expr>)_S 3300 10587 _m
(expressions)_S 61 _t
(to)_S 61 _t
(evaluate)_S 61 _t
(\(implicit)_S 61 _t
(progn\))_S 2100 10371 _m
(returns)_S 3300 10371 _m
(contents)_S 61 _t
(of)_S 61 _t
(stream,)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(string)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 3776 11867 _m
(DEBUGGING)_S 61 _t
(AND)_S 61 _t
(ERROR)_S 61 _t
(HANDLING)_S 8699 11867 _m
(Page)_S 61 _t
(74)_S 1500 10986 _m
/HelveticaR 660 _ff
(DEBUGGING)_S 73 _t
(AND)_S 73 _t
(ERROR)_S 73 _t
(HANDLING)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(trace)_S 61 _t
([<sym>...]\))_S 122 _t
5892 10550 _m
(ADD)_S 61 _t
(A)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(THE)_S 61 _t
(TRACE)_S 61 _t
(LIST)_S 2100 10334 _m
(fsubr)_S 2100 10118 _m
(<sym>)_S 3300 10118 _m
(the)_S 61 _t
(function\(s\))_S 61 _t
(to)_S 61 _t
(add)_S 61 _t
(\(quoted\))_S 2100 9902 _m
(returns)_S 3300 9902 _m
(the)_S 61 _t
(trace)_S 61 _t
(list)_S 1500 9470 _m
(\(untrace)_S 61 _t
([<sym>...]\))_S 122 _t
5237 9470 _m
(REMOVE)_S 61 _t
(A)_S 61 _t
(FUNCTION)_S 61 _t
(FROM)_S 61 _t
(THE)_S 61 _t
(TRACE)_S 61 _t
(LIST)_S 2100 9254 _m
(fsubr)_S -10 _t
(.)_S 61 _t
(If)_S 61 _t
(no)_S 61 _t
(functions)_S 61 _t
(given,)_S 61 _t
(all)_S 61 _t
(functions)_S 61 _t
(are)_S 61 _t
(removed)_S 61 _t
(from)_S 61 _t
(the)_S 61 _t
(trace)_S 61 _t
(list.)_S 2100 9038 _m
(<sym>)_S 3300 9038 _m
(the)_S 61 _t
(function\(s\))_S 61 _t
(to)_S 61 _t
(remove)_S 61 _t
(\(quoted\))_S 2100 8822 _m
(returns)_S 3300 8822 _m
(the)_S 61 _t
(trace)_S 61 _t
(list)_S 1500 8390 _m
(\(error)_S 61 _t
(<emsg>)_S 61 _t
([<ar)_S -3 _t
(g>]\))_S 122 _t
5934 8390 _m
(SIGNAL)_S 61 _t
(A)_S 61 _t
(NON-CORRECT)_S -15 _t
(ABLE)_S 61 _t
(ERROR)_S 2100 8174 _m
(<emsg>)_S 3300 8174 _m
(the)_S 61 _t
(error)_S 61 _t
(message)_S 61 _t
(string)_S 2100 7958 _m
(<ar)_S -3 _t
(g>)_S 3300 7958 _m
(the)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(expression)_S 61 _t
(\(printed)_S 61 _t
(after)_S 61 _t
(the)_S 61 _t
(message\))_S 2100 7742 _m
(returns)_S 3300 7742 _m
(never)_S 61 _t
(returns)_S 1500 7310 _m
(\(cerror)_S 61 _t
(<cmsg>)_S 61 _t
(<emsg>)_S 61 _t
([<ar)_S -3 _t
(g>]\))_S 122 _t
6392 7310 _m
(SIGNAL)_S 61 _t
(A)_S 61 _t
(CORRECT)_S -15 _t
(ABLE)_S 61 _t
(ERROR)_S 2100 7094 _m
(<cmsg>)_S 3300 7094 _m
(the)_S 61 _t
(continue)_S 61 _t
(message)_S 61 _t
(string)_S 2100 6878 _m
(<emsg>)_S 3300 6878 _m
(the)_S 61 _t
(error)_S 61 _t
(message)_S 61 _t
(string)_S 2100 6662 _m
(<ar)_S -3 _t
(g>)_S 3300 6662 _m
(the)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(expression)_S 61 _t
(\(printed)_S 61 _t
(after)_S 61 _t
(the)_S 61 _t
(message\))_S 2100 6446 _m
(returns)_S 3300 6446 _m
(NIL)_S 61 _t
(when)_S 61 _t
(continued)_S 61 _t
(from)_S 61 _t
(the)_S 61 _t
(break)_S 61 _t
(loop)_S 1500 6014 _m
(\(break)_S 61 _t
([<bmsg>)_S 61 _t
([<ar)_S -3 _t
(g>]]\))_S 122 _t
7294 6014 _m
(ENTER)_S 61 _t
(A)_S 61 _t
(BREAK)_S 61 _t
(LOOP)_S 2100 5798 _m
(<bmsg>)_S 3300 5798 _m
(the)_S 61 _t
(break)_S 61 _t
(message)_S 61 _t
(string)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
("**BREAK**"\))_S 2100 5582 _m
(<ar)_S -3 _t
(g>)_S 3300 5582 _m
(the)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(expression)_S 61 _t
(\(printed)_S 61 _t
(after)_S 61 _t
(the)_S 61 _t
(message\))_S 2100 5366 _m
(returns)_S 3300 5366 _m
(NIL)_S 61 _t
(when)_S 61 _t
(continued)_S 61 _t
(from)_S 61 _t
(the)_S 61 _t
(break)_S 61 _t
(loop)_S 1500 4934 _m
(\(clean-up\))_S 122 _t
6754 4934 _m
(CLEAN-UP)_S 61 _t
(AFTER)_S 61 _t
(AN)_S 61 _t
(ERROR)_S 2100 4718 _m
(returns)_S 3300 4718 _m
(never)_S 61 _t
(returns)_S 1500 4286 _m
(\(top-level\))_S 122 _t
3736 4286 _m
(CLEAN-UP)_S 61 _t
(AFTER)_S 61 _t
(AN)_S 61 _t
(ERROR)_S 61 _t
(AND)_S 61 _t
(RETURN)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(THE)_S 61 _t
(T)_S -3 _t
(OP)_S 61 _t
(LEVEL)_S 2100 4070 _m
(returns)_S 3300 4070 _m
(never)_S 61 _t
(returns)_S 1500 3638 _m
(\(continue\))_S 122 _t
5547 3638 _m
(CONTINUE)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(CORRECT)_S -15 _t
(ABLE)_S 61 _t
(ERROR)_S 2100 3422 _m
(returns)_S 3300 3422 _m
(never)_S 61 _t
(returns)_S 1500 2990 _m
(\(errset)_S 61 _t
(<expr>)_S 61 _t
([<p\257ag>]\))_S 122 _t
8057 2990 _m
(TRAP)_S 61 _t
(ERRORS)_S 2100 2774 _m
(fsubr)_S 2100 2558 _m
(<expr>)_S 3300 2558 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(execute)_S 2100 2342 _m
(<p\257ag>)_S 3300 2342 _m
(\257ag)_S 61 _t
(to)_S 61 _t
(control)_S 61 _t
(printing)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(error)_S 61 _t
(message)_S 61 _t
(\(default)_S 61 _t
(t\))_S 2100 2126 _m
(returns)_S 3300 2126 _m
(the)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(expression)_S 61 _t
(consed)_S 61 _t
(with)_S 61 _t
(NIL)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(on)_S 61 _t
(error)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 3776 11867 _m
(DEBUGGING)_S 61 _t
(AND)_S 61 _t
(ERROR)_S 61 _t
(HANDLING)_S 8699 11867 _m
(Page)_S 61 _t
(75)_S 1500 11235 _m
(\(baktrace)_S 61 _t
([<n>]\))_S 122 _t
4982 11235 _m
(PRINT)_S 61 _t
(N)_S 61 _t
(LEVELS)_S 61 _t
(OF)_S 61 _t
(TRACE)_S 61 _t
(BACK)_S 61 _t
(INFORMA)_S -20 _t
(TION)_S 2100 11019 _m
(<n>)_S 3300 11019 _m
(the)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(levels)_S 61 _t
(\(defaults)_S 61 _t
(to)_S 61 _t
(all)_S 61 _t
(levels\))_S 2100 10803 _m
(returns)_S 3300 10803 _m
(NIL)_S 1500 10371 _m
(\(evalhook)_S 61 _t
(<expr>)_S 61 _t
(<ehook>)_S 61 _t
(<ahook>)_S 61 _t
([<env>]\))_S 122 _t
7134 10371 _m
(EV)_S -23 _t
(ALUA)_S -20 _t
(TE)_S 61 _t
(WITH)_S 61 _t
(HOOKS)_S 2100 10155 _m
(<expr>)_S 3300 10155 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(evaluate.)_S 61 _t
(<ehook>)_S 61 _t
(is)_S 61 _t
(not)_S 61 _t
(used)_S 61 _t
(at)_S 61 _t
(the)_S 61 _t
(top)_S 61 _t
(level.)_S 2100 9939 _m
(<ehook>)_S 3300 9939 _m
(the)_S 61 _t
(value)_S 61 _t
(for)_S 61 _t
(*evalhook*)_S 2100 9723 _m
(<ahook>)_S 3300 9723 _m
(the)_S 61 _t
(value)_S 61 _t
(for)_S 61 _t
(*applyhook*)_S 2100 9507 _m
(<env>)_S 3300 9507 _m
(the)_S 61 _t
(environment)_S 62 _t
(\(default)_S 62 _t
(is)_S 61 _t
(NIL\).)_S 62 _t
(The)_S 61 _t
(format)_S 62 _t
(is)_S 62 _t
(a)_S 61 _t
(dotted)_S 62 _t
(pair)_S 62 _t
(of)_S 61 _t
(value)_S 62 _t
(\(car\))_S 62 _t
(and)_S 3300 9291 _m
(function)_S 48 _t
(\(cdr\))_S 48 _t
(binding)_S 48 _t
(lists.)_S 48 _t
(Each)_S 48 _t
(binding)_S 48 _t
(list)_S 48 _t
(is)_S 48 _t
(a)_S 49 _t
(list)_S 48 _t
(of)_S 48 _t
(level)_S 48 _t
(binding)_S 48 _t
(a-lists,)_S 48 _t
(with)_S 3300 9075 _m
(the)_S 75 _t
(innermost)_S 74 _t
(a-list)_S 75 _t
(\256rst.)_S 75 _t
(The)_S 74 _t
(level)_S 75 _t
(binding)_S 74 _t
(a-list)_S 75 _t
(associates)_S 75 _t
(the)_S 74 _t
(bound)_S 75 _t
(symbol)_S 3300 8859 _m
(with)_S 61 _t
(its)_S 61 _t
(value.)_S 2100 8643 _m
(returns)_S 3300 8643 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(evaluating)_S 61 _t
(the)_S 61 _t
(expression)_S 1500 8211 _m
(\(applyhook)_S 61 _t
(<fun>)_S 61 _t
(<ar)_S -3 _t
(glist>)_S 61 _t
(<ehook>)_S 61 _t
(<ahook>\))_S 7506 8211 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(WITH)_S 61 _t
(HOOKS)_S 2100 7995 _m
(<fun>)_S 3300 7995 _m
(The)_S 61 _t
(function)_S 61 _t
(closure.)_S 61 _t
(<ahook>)_S 61 _t
(is)_S 61 _t
(not)_S 61 _t
(used)_S 61 _t
(for)_S 61 _t
(this)_S 61 _t
(function)_S 61 _t
(application.)_S 2100 7779 _m
(<ar)_S -3 _t
(glist>)_S 3300 7779 _m
(The)_S 61 _t
(list)_S 61 _t
(of)_S 61 _t
(ar)_S -3 _t
(guments.)_S 2100 7563 _m
(<ehook>)_S 3300 7563 _m
(the)_S 61 _t
(value)_S 61 _t
(for)_S 61 _t
(*evalhook*)_S 2100 7347 _m
(<ahook>)_S 3300 7347 _m
(the)_S 61 _t
(value)_S 61 _t
(for)_S 61 _t
(*applyhook*)_S 2100 7131 _m
(returns)_S 3300 7131 _m
(the)_S 61 _t
(result)_S 61 _t
(of)_S 61 _t
(applying)_S 61 _t
(<fun>)_S 61 _t
(to)_S 61 _t
(<ar)_S -3 _t
(glist>)_S 1500 6699 _m
(\(debug\))_S 7100 6699 _m
(ENABLE)_S 61 _t
(DEBUG)_S 61 _t
(BREAKS)_S 1500 6483 _m
(\(nodebug\))_S 7049 6483 _m
(DISABLE)_S 61 _t
(DEBUG)_S 61 _t
(BREAKS)_S 2100 6267 _m
(De\256ned)_S 61 _t
(in)_S 61 _t
(init.lsp)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4494 11867 _m
(SYSTEM)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(76)_S 1500 10986 _m
/HelveticaR 660 _ff
(SYSTEM)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10550 _m
(\(load)_S 61 _t
(<fname>)_S 61 _t
(&key)_S 61 _t
(:verbose)_S 61 _t
(:print\))_S 122 _t
7365 10550 _m
(LOAD)_S 61 _t
(A)_S 61 _t
(SOURCE)_S 61 _t
(FILE)_S 2100 10334 _m
(An)_S 112 _t
(implicit)_S 111 _t
(ERRSET)_S 112 _t
(exists)_S 112 _t
(in)_S 111 _t
(this)_S 112 _t
(function)_S 111 _t
(so)_S 112 _t
(that)_S 112 _t
(if)_S 112 _t
(error)_S 111 _t
(occurs)_S 112 _t
(during)_S 111 _t
(loading,)_S 112 _t
(and)_S 2100 10118 _m
(*breakenable*)_S 60 _t
(is)_S 60 _t
(NIL,)_S 60 _t
(then)_S 60 _t
(the)_S 60 _t
(error)_S 59 _t
(message)_S 60 _t
(will)_S 60 _t
(be)_S 60 _t
(printed)_S 60 _t
(and)_S 60 _t
(NIL)_S 60 _t
(will)_S 60 _t
(be)_S 59 _t
(returned.)_S 60 _t
(The)_S 60 _t
(OS)_S 2100 9902 _m
(environmental)_S 52 _t
(variable)_S 52 _t
(XLP)_S -17 _t
(A)_S -20 _t
(TH)_S 51 _t
(is)_S 52 _t
(used)_S 52 _t
(as)_S 51 _t
(a)_S 52 _t
(search)_S 52 _t
(path)_S 51 _t
(for)_S 52 _t
(\256les)_S 52 _t
(in)_S 51 _t
(this)_S 52 _t
(function.)_S 52 _t
(If)_S 51 _t
(the)_S 52 _t
(\256lename)_S 2100 9686 _m
(does)_S 61 _t
(not)_S 61 _t
(contain)_S 61 _t
(path)_S 62 _t
(separators)_S 61 _t
(\('/')_S 61 _t
(for)_S 61 _t
(UNIX,)_S 62 _t
(and)_S 61 _t
(either)_S 61 _t
('/')_S 61 _t
(or)_S 62 _t
('\\')_S 61 _t
(for)_S 61 _t
(MS-DOS\))_S 61 _t
(and)_S 62 _t
(XLP)_S -17 _t
(A)_S -20 _t
(TH)_S 2100 9470 _m
(is)_S 65 _t
(de\256ned,)_S 64 _t
(then)_S 65 _t
(each)_S 65 _t
(pathname)_S 65 _t
(in)_S 65 _t
(XLP)_S -17 _t
(A)_S -20 _t
(TH)_S 64 _t
(is)_S 65 _t
(tried)_S 65 _t
(in)_S 65 _t
(turn)_S 65 _t
(until)_S 65 _t
(a)_S 64 _t
(matching)_S 65 _t
(\256le)_S 65 _t
(is)_S 65 _t
(found.)_S 65 _t
(If)_S 65 _t
(no)_S 2100 9254 _m
(\256le)_S 56 _t
(is)_S 56 _t
(found,)_S 57 _t
(then)_S 56 _t
(one)_S 56 _t
(last)_S 56 _t
(attempt)_S 56 _t
(is)_S 56 _t
(made)_S 57 _t
(in)_S 56 _t
(the)_S 56 _t
(current)_S 56 _t
(directory)_S -12 _t
(.)_S 57 _t
(The)_S 56 _t
(pathnames)_S 56 _t
(are)_S 56 _t
(separated)_S 2100 9038 _m
(by)_S 61 _t
(either)_S 61 _t
(a)_S 61 _t
(space)_S 61 _t
(or)_S 61 _t
(semicolon,)_S 61 _t
(and)_S 61 _t
(a)_S 61 _t
(trailing)_S 61 _t
(path)_S 61 _t
(separator)_S 61 _t
(character)_S 61 _t
(is)_S 61 _t
(optional.)_S 2100 8822 _m
(<fname>)_S 3300 8822 _m
(the)_S 64 _t
(\256lename)_S 64 _t
(string,)_S 64 _t
(symbol,)_S 65 _t
(or)_S 64 _t
(a)_S 64 _t
(\256le)_S 64 _t
(stream)_S 64 _t
(created)_S 65 _t
(with)_S 64 _t
(OPEN.)_S 64 _t
(The)_S 65 _t
(extension)_S 3300 8606 _m
("lsp")_S 61 _t
(is)_S 61 _t
(assumed.)_S 2100 8390 _m
(:verbose)_S 3300 8390 _m
(the)_S 61 _t
(verbose)_S 61 _t
(\257ag)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(t\))_S 2100 8174 _m
(:print)_S 3300 8174 _m
(the)_S 61 _t
(print)_S 61 _t
(\257ag)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(NIL\))_S 2100 7958 _m
(returns)_S 3300 7958 _m
(t)_S 61 _t
(if)_S 61 _t
(successful,)_S 61 _t
(else)_S 61 _t
(NIL)_S 1500 7526 _m
(\(restore)_S 61 _t
(<fname>\))_S 61 _t
6092 7526 _m
(REST)_S -3 _t
(ORE)_S 61 _t
(WORKSP)_S -17 _t
(ACE)_S 61 _t
(FROM)_S 61 _t
(A)_S 61 _t
(FILE)_S 2100 7310 _m
(The)_S 64 _t
(OS)_S 64 _t
(environmental)_S 64 _t
(variable)_S 63 _t
(XLP)_S -17 _t
(A)_S -20 _t
(TH)_S 64 _t
(is)_S 64 _t
(used)_S 64 _t
(as)_S 63 _t
(a)_S 64 _t
(search)_S 64 _t
(path)_S 64 _t
(for)_S 63 _t
(\256les)_S 64 _t
(in)_S 64 _t
(this)_S 64 _t
(function.)_S 63 _t
(See)_S 2100 7094 _m
(the)_S 64 _t
(note)_S 64 _t
(under)_S 65 _t
(function)_S 64 _t
("load",)_S 64 _t
(above.)_S 64 _t
(The)_S 65 _t
(standard)_S 64 _t
(system)_S 64 _t
(streams)_S 65 _t
(are)_S 64 _t
(restored)_S 64 _t
(to)_S 64 _t
(the)_S 65 _t
(defaults)_S 2100 6878 _m
(as)_S 74 _t
(of)_S 74 _t
(when)_S 73 _t
(XLISP-PLUS)_S 74 _t
(was)_S 74 _t
(started.)_S 73 _t
(Files)_S 74 _t
(streams)_S 73 _t
(are)_S 74 _t
(restored)_S 74 _t
(in)_S 73 _t
(the)_S 74 _t
(same)_S 74 _t
(mode)_S 74 _t
(they)_S 73 _t
(were)_S 2100 6662 _m
(created,)_S 59 _t
(if)_S 59 _t
(possible,)_S 59 _t
(and)_S 59 _t
(are)_S 59 _t
(positioned)_S 60 _t
(where)_S 59 _t
(they)_S 59 _t
(were)_S 59 _t
(at)_S 59 _t
(the)_S 59 _t
(time)_S 60 _t
(of)_S 59 _t
(the)_S 59 _t
(save.)_S 59 _t
(If)_S 59 _t
(the)_S 59 _t
(\256les)_S 60 _t
(have)_S 2100 6446 _m
(been)_S 63 _t
(altered)_S 62 _t
(or)_S 63 _t
(moved)_S 62 _t
(since)_S 63 _t
(the)_S 62 _t
(time)_S 62 _t
(of)_S 63 _t
(the)_S 62 _t
(save,)_S 63 _t
(the)_S 62 _t
(restore)_S 63 _t
(will)_S 62 _t
(not)_S 62 _t
(be)_S 63 _t
(completely)_S 62 _t
(successful.)_S 2100 6230 _m
(Memory)_S 66 _t
(allocation)_S 65 _t
(will)_S 66 _t
(not)_S 65 _t
(be)_S 66 _t
(the)_S 65 _t
(same)_S 66 _t
(as)_S 65 _t
(the)_S 66 _t
(current)_S 66 _t
(settings)_S 65 _t
(of)_S 66 _t
(ALLOC)_S 65 _t
(are)_S 66 _t
(used.)_S 65 _t
(Execution)_S 2100 6014 _m
(proceeds)_S 63 _t
(at)_S 63 _t
(the)_S 63 _t
(top-level)_S 63 _t
(read-eval-print)_S 63 _t
(loop.)_S 63 _t
(The)_S 63 _t
(state)_S 63 _t
(of)_S 63 _t
(the)_S 63 _t
(transcript)_S 63 _t
(logging)_S 63 _t
(is)_S 63 _t
(not)_S 63 _t
(affected)_S 2100 5798 _m
(by)_S 61 _t
(this)_S 61 _t
(function.)_S 2100 5582 _m
(<fname>)_S 3300 5582 _m
(the)_S 64 _t
(\256lename)_S 64 _t
(string,)_S 64 _t
(symbol,)_S 65 _t
(or)_S 64 _t
(a)_S 64 _t
(\256le)_S 64 _t
(stream)_S 64 _t
(created)_S 65 _t
(with)_S 64 _t
(OPEN.)_S 64 _t
(The)_S 65 _t
(extension)_S 3300 5366 _m
("wks")_S 61 _t
(is)_S 61 _t
(assumed.)_S 2100 5150 _m
(returns)_S 3300 5150 _m
(NIL)_S 61 _t
(on)_S 61 _t
(failure,)_S 61 _t
(otherwise)_S 61 _t
(never)_S 61 _t
(returns)_S 1500 4718 _m
(\(save)_S 61 _t
(<fname>\))_S 61 _t
6726 4718 _m
(SA)_S -23 _t
(VE)_S 61 _t
(WORKSP)_S -17 _t
(ACE)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(FILE)_S 2100 4502 _m
(Y)_S -18 _t
(ou)_S 52 _t
(cannot)_S 52 _t
(save)_S 53 _t
(from)_S 52 _t
(within)_S 52 _t
(a)_S 53 _t
(load.)_S 52 _t
(Not)_S 52 _t
(all)_S 53 _t
(of)_S 52 _t
(the)_S 52 _t
(state)_S 53 _t
(may)_S 52 _t
(be)_S 52 _t
(saved)_S 52 _t
(--)_S 53 _t
(see)_S 52 _t
("restore",)_S 52 _t
(above.)_S 53 _t
(By)_S 2100 4286 _m
(saving)_S 49 _t
(a)_S 48 _t
(workspace)_S 49 _t
(with)_S 49 _t
(the)_S 48 _t
(name)_S 49 _t
("xlisp",)_S 48 _t
(that)_S 49 _t
(workspace)_S 49 _t
(will)_S 49 _t
(be)_S 48 _t
(loaded)_S 49 _t
(automatically)_S 48 _t
(when)_S 49 _t
(you)_S 2100 4070 _m
(invoke)_S 61 _t
(XLISP-PLUS.)_S 2100 3854 _m
(<fname>)_S 3300 3854 _m
(the)_S 64 _t
(\256lename)_S 64 _t
(string,)_S 64 _t
(symbol,)_S 65 _t
(or)_S 64 _t
(a)_S 64 _t
(\256le)_S 64 _t
(stream)_S 64 _t
(created)_S 65 _t
(with)_S 64 _t
(OPEN.)_S 64 _t
(The)_S 65 _t
(extension)_S 3300 3638 _m
("wks")_S 61 _t
(is)_S 61 _t
(assumed.)_S 2100 3422 _m
(returns)_S 3300 3422 _m
(t)_S 61 _t
(if)_S 61 _t
(workspace)_S 61 _t
(was)_S 61 _t
(written,)_S 61 _t
(NIL)_S 61 _t
(otherwise)_S 1500 2990 _m
(\(savefun)_S 61 _t
(<fcn>\))_S 6913 2990 _m
(SA)_S -23 _t
(VE)_S 61 _t
(FUNCTION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(A)_S 61 _t
(FILE)_S 2100 2774 _m
(de\256ned)_S 61 _t
(in)_S 61 _t
(init.lsp)_S 2100 2558 _m
(<fcn>)_S 3300 2558 _m
(function)_S 61 _t
(name)_S 61 _t
(\(saves)_S 61 _t
(it)_S 61 _t
(to)_S 61 _t
(\256le)_S 61 _t
(of)_S 61 _t
(same)_S 61 _t
(name,)_S 61 _t
(with)_S 61 _t
(extension)_S 61 _t
(".lsp"\))_S 2100 2342 _m
(returns)_S 3300 2342 _m
(t)_S 61 _t
(if)_S 61 _t
(successful)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4494 11867 _m
(SYSTEM)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(77)_S 1500 11235 _m
(\(dribble)_S 61 _t
([<fname>]\))_S 122 _t
4758 11235 _m
(CREA)_S -20 _t
(TE)_S 61 _t
(A)_S 61 _t
(FILE)_S 61 _t
(WITH)_S 61 _t
(A)_S 61 _t
(TRANSCRIPT)_S 61 _t
(OF)_S 61 _t
(A)_S 61 _t
(SESSION)_S 2100 11019 _m
(<fname>)_S 3300 11019 _m
(\256le)_S 61 _t
(name)_S 61 _t
(string,)_S 61 _t
(symbol,)_S 61 _t
(or)_S 61 _t
(\256le)_S 61 _t
(stream)_S 61 _t
(created)_S 61 _t
(with)_S 61 _t
(OPEN)_S 3300 10803 _m
(\(if)_S 61 _t
(missing,)_S 61 _t
(close)_S 61 _t
(current)_S 61 _t
(transcript\))_S 2100 10587 _m
(returns)_S 3300 10587 _m
(t)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(transcript)_S 61 _t
(is)_S 61 _t
(opened,)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(it)_S 61 _t
(is)_S 61 _t
(closed)_S 1500 10155 _m
(\(gc\))_S 122 _t
6550 10155 _m
(FORCE)_S 61 _t
(GARBAGE)_S 61 _t
(COLLECTION)_S 2100 9939 _m
(returns)_S 3300 9939 _m
(NIL)_S 1500 9507 _m
(\(expand)_S 61 _t
([<num>]\))_S 122 _t
5569 9507 _m
(EXP)_S -17 _t
(AND)_S 61 _t
(MEMOR)_S -10 _t
(Y)_S 61 _t
(BY)_S 61 _t
(ADDING)_S 61 _t
(SEGMENTS)_S 2100 9291 _m
(<num>)_S 3300 9291 _m
(the)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(segments)_S 61 _t
(to)_S 61 _t
(add,)_S 61 _t
(default)_S 61 _t
(1)_S 2100 9075 _m
(returns)_S 3300 9075 _m
(the)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(segments)_S 61 _t
(added)_S 1500 8643 _m
(\(alloc)_S 61 _t
(<num>)_S 61 _t
([<num2>]\))_S 122 _t
7162 8643 _m
(CHANGE)_S 61 _t
(SEGMENT)_S 61 _t
(SIZE)_S 2100 8427 _m
(<num>)_S 3300 8427 _m
(the)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(nodes)_S 61 _t
(to)_S 61 _t
(allocate)_S 2100 8211 _m
(<num2>)_S 3300 8211 _m
(the)_S 66 _t
(number)_S 65 _t
(of)_S 66 _t
(pointer)_S 65 _t
(elements)_S 66 _t
(to)_S 65 _t
(allocate)_S 66 _t
(in)_S 65 _t
(an)_S 66 _t
(array)_S 65 _t
(segment)_S 66 _t
(\(when)_S 65 _t
(dynamic)_S 3300 7995 _m
(array)_S 61 _t
(allocation)_S 61 _t
(compiled\).)_S 61 _t
(Default)_S 61 _t
(is)_S 61 _t
(no)_S 61 _t
(change.)_S 2100 7779 _m
(returns)_S 3300 7779 _m
(the)_S 61 _t
(old)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(nodes)_S 61 _t
(to)_S 61 _t
(allocate)_S 1500 7347 _m
(\(room\))_S 122 _t
5617 7347 _m
(SHOW)_S 61 _t
(MEMOR)_S -10 _t
(Y)_S 61 _t
(ALLOCA)_S -20 _t
(TION)_S 61 _t
(ST)_S -15 _t
(A)_S -20 _t
(TISTICS)_S 2100 7131 _m
(Statistics)_S 61 _t
(\(which)_S 61 _t
(are)_S 61 _t
(sent)_S 61 _t
(to)_S 61 _t
(*ST)_S -15 _t
(ANDARD-OUTPUT*\))_S 61 _t
(include:)_S 2100 6915 _m
61 _t
(Nodes)_S 61 _t
(-)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(nodes,)_S 61 _t
(free)_S 61 _t
(and)_S 61 _t
(used)_S 2100 6699 _m
61 _t
(Free)_S 61 _t
(nodes)_S 61 _t
(-)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(free)_S 61 _t
(nodes)_S 2100 6483 _m
61 _t
(Segments)_S 48 _t
(-)_S 48 _t
(number)_S 48 _t
(of)_S 48 _t
(node)_S 47 _t
(segments,)_S 48 _t
(including)_S 48 _t
(those)_S 48 _t
(reserved)_S 48 _t
(for)_S 48 _t
(characters)_S 48 _t
(and)_S 47 _t
(small)_S 48 _t
(integers.)_S 2100 6267 _m
61 _t
(Allocate)_S 61 _t
(-)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(nodes)_S 61 _t
(to)_S 61 _t
(allocate)_S 61 _t
(in)_S 61 _t
(any)_S 61 _t
(new)_S 61 _t
(node)_S 61 _t
(segments)_S 2100 6051 _m
61 _t
(T)_S -13 _t
(otal)_S 61 _t
(-)_S 61 _t
(total)_S 61 _t
(memory)_S 61 _t
(bytes)_S 61 _t
(allocated)_S 61 _t
(for)_S 61 _t
(node)_S 61 _t
(segments,)_S 61 _t
(arrays,)_S 61 _t
(and)_S 61 _t
(strings)_S 2100 5835 _m
61 _t
(Collections)_S 61 _t
(-)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(garbage)_S 61 _t
(collections)_S 2100 5619 _m
(When)_S 61 _t
(dynamic)_S 61 _t
(array)_S 61 _t
(allocation)_S 61 _t
(is)_S 61 _t
(compiled,)_S 61 _t
(the)_S 61 _t
(following)_S 61 _t
(additional)_S 61 _t
(statistics)_S 61 _t
(are)_S 61 _t
(printed:)_S 2100 5403 _m
61 _t
(V)_S -20 _t
(ector)_S 61 _t
(nodes)_S 61 _t
(-)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(pointers)_S 61 _t
(in)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(\(size)_S 61 _t
(equivalent\))_S 61 _t
(strings)_S 2100 5187 _m
61 _t
(V)_S -20 _t
(ector)_S 61 _t
(segs)_S 61 _t
(-)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(vector)_S 61 _t
(segments.)_S 61 _t
(Increases)_S 61 _t
(and)_S 61 _t
(decreases)_S 61 _t
(as)_S 61 _t
(needed.)_S 2100 4971 _m
61 _t
(V)_S -20 _t
(ec)_S 61 _t
(allocate)_S 61 _t
(-)_S 61 _t
(number)_S 61 _t
(of)_S 61 _t
(pointer)_S 61 _t
(elements)_S 61 _t
(to)_S 61 _t
(allocate)_S 61 _t
(in)_S 61 _t
(any)_S 61 _t
(new)_S 61 _t
(vector)_S 61 _t
(segment)_S 2100 4755 _m
(returns)_S 3300 4755 _m
(NIL)_S 1500 4323 _m
(\(time)_S 61 _t
(<expr>\))_S 6805 4323 _m
(MEASURE)_S 61 _t
(EXECUTION)_S 61 _t
(TIME)_S 2100 4107 _m
(fsubr)_S -10 _t
(.)_S 2100 3891 _m
(<expr>)_S 3300 3891 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(evaluate)_S 2100 3675 _m
(returns)_S 3300 3675 _m
(the)_S 44 _t
(result)_S 44 _t
(of)_S 45 _t
(the)_S 44 _t
(expression.)_S 44 _t
(The)_S 44 _t
(execution)_S 44 _t
(time)_S 44 _t
(is)_S 44 _t
(printed)_S 44 _t
(to)_S 44 _t
(*TRACE-OUTPUT*)_S 1500 3243 _m
(\(get-internal-real-time\))_S 6887 3243 _m
(GET)_S 61 _t
(ELAPSED)_S 61 _t
(CLOCK)_S 61 _t
(TIME)_S 1500 3027 _m
(\(get-internal-run-time\))_S 6459 3027 _m
(GET)_S 61 _t
(ELAPSED)_S 61 _t
(EXECUTION)_S 61 _t
(TIME)_S 2100 2811 _m
(returns)_S 3300 2811 _m
(integer)_S 91 _t
(time)_S 91 _t
(in)_S 91 _t
(system)_S 90 _t
(units)_S 91 _t
(\(see)_S 90 _t
(internal-time-units-per)_S -4 _t
(-second)_S 91 _t
(on)_S 91 _t
(page)_S 90 _t
(20\).)_S 3300 2595 _m
(meaning)_S 61 _t
(of)_S 61 _t
(absolute)_S 61 _t
(values)_S 61 _t
(is)_S 61 _t
(system)_S 61 _t
(dependent.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4494 11867 _m
(SYSTEM)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(78)_S 1500 11235 _m
(\(coerce)_S 61 _t
(<expr>)_S 61 _t
(<type>\))_S 5514 11235 _m
(FORCE)_S 61 _t
(EXPRESSION)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(DESIGNA)_S -20 _t
(TED)_S 61 _t
(TYPE)_S 2100 11019 _m
(Sequences)_S 65 _t
(can)_S 66 _t
(be)_S 65 _t
(coerced)_S 66 _t
(into)_S 65 _t
(other)_S 66 _t
(sequences,)_S 65 _t
(single)_S 66 _t
(character)_S 65 _t
(strings)_S 65 _t
(or)_S 66 _t
(symbols)_S 65 _t
(with)_S 66 _t
(single)_S 2100 10803 _m
(character)_S 67 _t
(printnames)_S 67 _t
(can)_S 67 _t
(be)_S 67 _t
(coerced)_S 67 _t
(into)_S 67 _t
(characters,)_S 67 _t
(\256xnums)_S 67 _t
(can)_S 68 _t
(be)_S 67 _t
(coerced)_S 67 _t
(into)_S 67 _t
(characters)_S 67 _t
(or)_S 2100 10587 _m
(\257onums.)_S 48 _t
(Ratios)_S 48 _t
(can)_S 48 _t
(be)_S 48 _t
(coerced)_S 49 _t
(into)_S 48 _t
(\257onums.)_S 48 _t
(Flonums)_S 48 _t
(and)_S 48 _t
(ratios)_S 49 _t
(can)_S 48 _t
(be)_S 48 _t
(coerced)_S 48 _t
(into)_S 48 _t
(complex)_S 49 _t
(\(so)_S 2100 10371 _m
(can)_S 61 _t
(\256xnums,)_S 61 _t
(but)_S 61 _t
(they)_S 61 _t
(turn)_S 61 _t
(back)_S 61 _t
(into)_S 61 _t
(\256xnums\).)_S 2100 10155 _m
(<expr>)_S 3300 10155 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(coerce)_S 2100 9939 _m
(<type>)_S 3300 9939 _m
(desired)_S 61 _t
(type,)_S 61 _t
(as)_S 61 _t
(returned)_S 61 _t
(by)_S 61 _t
(type-of)_S 61 _t
(\(see)_S 61 _t
(page)_S 61 _t
(78\))_S 2100 9723 _m
(returns)_S 3300 9723 _m
(<expr>)_S 61 _t
(if)_S 61 _t
(type)_S 61 _t
(is)_S 61 _t
(correct,)_S 61 _t
(or)_S 61 _t
(converted)_S 61 _t
(object.)_S 1500 9291 _m
(\(type-of)_S 61 _t
(<expr>\))_S 122 _t
5644 9291 _m
(RETURNS)_S 61 _t
(THE)_S 61 _t
(TYPE)_S 61 _t
(OF)_S 61 _t
(THE)_S 61 _t
(EXPRESSION)_S 2100 9075 _m
(It)_S 66 _t
(is)_S 67 _t
(recommended)_S 66 _t
(that)_S 66 _t
(typep)_S 66 _t
(be)_S 66 _t
(used)_S 67 _t
(instead,)_S 66 _t
(as)_S 66 _t
(it)_S 66 _t
(is)_S 66 _t
(more)_S 66 _t
(general.)_S 67 _t
(In)_S 66 _t
(the)_S 66 _t
(original)_S 66 _t
(XLISP)_S -20 _t
(,)_S 66 _t
(the)_S 2100 8859 _m
(value)_S 61 _t
(NIL)_S 61 _t
(was)_S 61 _t
(returned)_S 61 _t
(for)_S 61 _t
(NIL.)_S 2100 8643 _m
(<expr>)_S 3300 8643 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(return)_S 61 _t
(the)_S 61 _t
(type)_S 61 _t
(of)_S 2100 8427 _m
(returns)_S 3300 8427 _m
(One)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(symbols:)_S 3300 8211 _m
(LIST)_S 5700 8211 _m
(for)_S 61 _t
(NIL)_S 61 _t
(\(lists,)_S 61 _t
(conses)_S 61 _t
(return)_S 61 _t
(CONS\))_S 3300 7995 _m
(SYMBOL)_S 5700 7995 _m
(for)_S 61 _t
(symbols)_S 3300 7779 _m
(OBJECT)_S 5700 7779 _m
(for)_S 61 _t
(objects)_S 3300 7563 _m
(CONS)_S 5700 7563 _m
(for)_S 61 _t
(conses)_S 3300 7347 _m
(SUBR)_S 5700 7347 _m
(for)_S 61 _t
(built-in)_S 61 _t
(functions)_S 3300 7131 _m
(FSUBR)_S 5700 7131 _m
(for)_S 61 _t
(special)_S 61 _t
(forms)_S 3300 6915 _m
(CLOSURE)_S 5700 6915 _m
(for)_S 61 _t
(de\256ned)_S 61 _t
(functions)_S 3300 6699 _m
(STRING)_S 5700 6699 _m
(for)_S 61 _t
(strings)_S 3300 6483 _m
(FIXNUM)_S 5700 6483 _m
(for)_S 61 _t
(integers)_S 3300 6267 _m
(RA)_S -20 _t
(TIO)_S 5700 6267 _m
(for)_S 61 _t
(ratios)_S 3300 6051 _m
(FLONUM)_S 5700 6051 _m
(for)_S 61 _t
(\257oating)_S 61 _t
(point)_S 61 _t
(numbers)_S 3300 5835 _m
(COMPLEX)_S 5700 5835 _m
(for)_S 61 _t
(complex)_S 61 _t
(numbers)_S 3300 5619 _m
(CHARACTER)_S 5700 5619 _m
(for)_S 61 _t
(characters)_S 3300 5403 _m
(FILE-STREAM)_S 5700 5403 _m
(for)_S 61 _t
(\256le)_S 61 _t
(pointers)_S 3300 5187 _m
(UNNAMED-STREAM)_S 5700 5187 _m
(for)_S 61 _t
(unnamed)_S 61 _t
(streams)_S 3300 4971 _m
(ARRA)_S -17 _t
(Y)_S 5700 4971 _m
(for)_S 61 _t
(arrays)_S 3300 4755 _m
(HASH-T)_S -15 _t
(ABLE)_S 5700 4755 _m
(for)_S 61 _t
(hash)_S 61 _t
(tables)_S 3300 4539 _m
(sym)_S 5700 4539 _m
(for)_S 61 _t
(structures)_S 61 _t
(of)_S 61 _t
(type)_S 61 _t
("sym")_S 1500 4107 _m
(\(peek)_S 61 _t
(<addrs>\))_S 122 _t
6255 4107 _m
(PEEK)_S 61 _t
(A)_S -20 _t
(T)_S 61 _t
(A)_S 61 _t
(LOCA)_S -20 _t
(TION)_S 61 _t
(IN)_S 61 _t
(MEMOR)_S -10 _t
(Y)_S 2100 3891 _m
(<addrs>)_S 3300 3891 _m
(the)_S 61 _t
(address)_S 61 _t
(to)_S 61 _t
(peek)_S 61 _t
(at)_S 61 _t
(\(integer\))_S 2100 3675 _m
(returns)_S 3300 3675 _m
(the)_S 61 _t
(value)_S 61 _t
(at)_S 61 _t
(the)_S 61 _t
(speci\256ed)_S 61 _t
(address)_S 61 _t
(\(integer\))_S 1500 3243 _m
(\(poke)_S 61 _t
(<addrs>)_S 61 _t
(<value>\))_S 122 _t
6597 3243 _m
(POKE)_S 61 _t
(A)_S 61 _t
(V)_S -23 _t
(ALUE)_S 61 _t
(INT)_S -3 _t
(O)_S 61 _t
(MEMOR)_S -10 _t
(Y)_S 2100 3027 _m
(<addrs>)_S 3300 3027 _m
(the)_S 61 _t
(address)_S 61 _t
(to)_S 61 _t
(poke)_S 61 _t
(\(integer\))_S 2100 2811 _m
(<value>)_S 3300 2811 _m
(the)_S 61 _t
(value)_S 61 _t
(to)_S 61 _t
(poke)_S 61 _t
(into)_S 61 _t
(the)_S 61 _t
(address)_S 61 _t
(\(integer\))_S 2100 2595 _m
(returns)_S 3300 2595 _m
(the)_S 61 _t
(value)_S 1500 2163 _m
(\(address-of)_S 61 _t
(<expr>\))_S 122 _t
5869 2163 _m
(GET)_S 61 _t
(THE)_S 61 _t
(ADDRESS)_S 61 _t
(OF)_S 61 _t
(AN)_S 61 _t
(XLISP)_S 61 _t
(NODE)_S 2100 1947 _m
(<expr>)_S 3300 1947 _m
(the)_S 61 _t
(node)_S 2100 1731 _m
(returns)_S 3300 1731 _m
(the)_S 61 _t
(address)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(node)_S 61 _t
(\(integer\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4494 11867 _m
(SYSTEM)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(79)_S 1500 11235 _m
(\(get-key\))_S 5970 11235 _m
(READ)_S 61 _t
(A)_S 61 _t
(KEYSTROKE)_S 61 _t
(FROM)_S 61 _t
(CONSOLE)_S 2100 11019 _m
(OS)_S 61 _t
(dependent.)_S 2100 10803 _m
(returns)_S 3300 10803 _m
(integer)_S 61 _t
(value)_S 61 _t
(of)_S 61 _t
(key)_S 61 _t
(\(no)_S 61 _t
(echo\))_S 1500 10371 _m
(\(system)_S 61 _t
(<command>\))_S 6449 10371 _m
(EXECUTE)_S 61 _t
(A)_S 61 _t
(SYSTEM)_S 61 _t
(COMMAND)_S 2100 10155 _m
(OS)_S 61 _t
(dependent)_S 61 _t
(--)_S 61 _t
(not)_S 61 _t
(always)_S 61 _t
(available.)_S 2100 9939 _m
(<command>)_S 3300 9939 _m
(Command)_S 61 _t
(string,)_S 61 _t
(if)_S 61 _t
(0)_S 61 _t
(length)_S 61 _t
(then)_S 61 _t
(spawn)_S 61 _t
(OS)_S 61 _t
(shell)_S 2100 9723 _m
(returns)_S 3300 9723 _m
(T)_S 61 _t
(if)_S 61 _t
(successful)_S 61 _t
(\(note)_S 61 _t
(that)_S 61 _t
(MS/DOS)_S 61 _t
(command.com)_S 61 _t
(always)_S 61 _t
(returns)_S 61 _t
(success\))_S 1500 9291 _m
(\(exit\))_S 122 _t
8312 9291 _m
(EXIT)_S 61 _t
(XLISP)_S 2100 9075 _m
(returns)_S 3300 9075 _m
(never)_S 61 _t
(returns)_S 1500 8643 _m
(\(generic)_S 61 _t
(<expr>\))_S 4473 8643 _m
(CREA)_S -20 _t
(TE)_S 61 _t
(A)_S 61 _t
(GENERIC)_S 61 _t
(TYPED)_S 61 _t
(COPY)_S 61 _t
(OF)_S 61 _t
(THE)_S 61 _t
(EXPRESSION)_S 2100 8427 _m
(Note:)_S 61 _t
(added)_S 61 _t
(function,)_S 61 _t
(T)_S -13 _t
(om)_S 61 _t
(Almy's)_S 61 _t
(creation)_S 61 _t
(for)_S 61 _t
(debugging)_S 61 _t
(xlisp.)_S 2100 8211 _m
(<expr>)_S 3300 8211 _m
(the)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(copy)_S 2100 7995 _m
(returns)_S 3300 7995 _m
(NIL)_S 42 _t
(if)_S 42 _t
(value)_S 43 _t
(is)_S 42 _t
(NIL)_S 42 _t
(and)_S 42 _t
(NILSYMBOL)_S 43 _t
(compilation)_S 42 _t
(option)_S 42 _t
(not)_S 43 _t
(declared,)_S 42 _t
(otherwise)_S 3300 7779 _m
(if)_S 61 _t
(type)_S 61 _t
(is:)_S 3300 7563 _m
(SYMBOL)_S 5700 7563 _m
(copy)_S 61 _t
(as)_S 61 _t
(an)_S 61 _t
(ARRA)_S -17 _t
(Y)_S 3300 7347 _m
(OBJECT)_S 5700 7347 _m
(copy)_S 61 _t
(as)_S 61 _t
(an)_S 61 _t
(ARRA)_S -17 _t
(Y)_S 3300 7131 _m
(CONS)_S 5700 7131 _m
(\(CONS)_S 61 _t
(\(CAR)_S 61 _t
(<expr>\)\(CDR)_S 61 _t
(<expr>\)\))_S 3300 6915 _m
(CLOSURE)_S 5700 6915 _m
(copy)_S 61 _t
(as)_S 61 _t
(an)_S 61 _t
(ARRA)_S -17 _t
(Y)_S 3300 6699 _m
(STRING)_S 5700 6699 _m
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(string)_S 3300 6483 _m
(FIXNUM)_S 5700 6483 _m
(value)_S 3300 6267 _m
(FLONUM)_S 5700 6267 _m
(value)_S 3300 6051 _m
(RA)_S -20 _t
(TIO)_S 5700 6051 _m
(value)_S 3300 5835 _m
(CHARACTER)_S 5700 5835 _m
(value)_S 3300 5619 _m
(UNNAMED-STREAM)_S 5700 5619 _m
(copy)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(CONS)_S 3300 5403 _m
(ARRA)_S -17 _t
(Y)_S 5700 5403 _m
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(array)_S 3300 5187 _m
(COMPLEX)_S 5700 5187 _m
(copy)_S 61 _t
(as)_S 61 _t
(an)_S 61 _t
(ARRA)_S -17 _t
(Y)_S 3300 4971 _m
(HASH-T)_S -15 _t
(ABLE)_S 5700 4971 _m
(copy)_S 61 _t
(as)_S 61 _t
(an)_S 61 _t
(ARRA)_S -17 _t
(Y)_S 3300 4755 _m
(structure)_S 5700 4755 _m
(copy)_S 61 _t
(as)_S 61 _t
(an)_S 61 _t
(ARRA)_S -17 _t
(Y)_S 1500 4107 _m
(The)_S 61 _t
(following)_S 61 _t
(graphic)_S 61 _t
(and)_S 61 _t
(display)_S 61 _t
(functions)_S 61 _t
(represent)_S 61 _t
(an)_S 61 _t
(extension)_S 61 _t
(by)_S 61 _t
(T)_S -13 _t
(om)_S 61 _t
(Almy:)_S 1500 3675 _m
(\(cls\))_S 7881 3675 _m
(CLEAR)_S 61 _t
(DISPLA)_S -17 _t
(Y)_S 2100 3459 _m
(Clear)_S 61 _t
(the)_S 61 _t
(display)_S 61 _t
(and)_S 61 _t
(position)_S 61 _t
(cursor)_S 61 _t
(at)_S 61 _t
(upper)_S 61 _t
(left)_S 61 _t
(corner)_S -10 _t
(.)_S 2100 3243 _m
(returns)_S 3300 3243 _m
(nil)_S 1500 2811 _m
(\(cleol\))_S 7185 2811 _m
(CLEAR)_S 61 _t
(T)_S -3 _t
(O)_S 61 _t
(END)_S 61 _t
(OF)_S 61 _t
(LINE)_S 2100 2595 _m
(Clears)_S 61 _t
(current)_S 61 _t
(line)_S 61 _t
(to)_S 61 _t
(end.)_S 2100 2379 _m
(returns)_S 3300 2379 _m
(nil)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4494 11867 _m
(SYSTEM)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(80)_S 1500 11235 _m
(\(goto-xy)_S 61 _t
([<column>)_S 61 _t
(<row>]\))_S 6550 11235 _m
(GET)_S 61 _t
(OR)_S 61 _t
(SET)_S 61 _t
(CURSOR)_S 61 _t
(POSITION)_S 2100 11019 _m
(Cursor)_S 59 _t
(is)_S 59 _t
(repositioned)_S 58 _t
(if)_S 59 _t
(optional)_S 58 _t
(ar)_S -3 _t
(guments)_S 59 _t
(are)_S 59 _t
(speci\256ed.)_S 58 _t
(Coordinates)_S 59 _t
(are)_S 59 _t
(clipped)_S 58 _t
(to)_S 59 _t
(actual)_S 58 _t
(size)_S 2100 10803 _m
(of)_S 61 _t
(display)_S -12 _t
(.)_S 2100 10587 _m
(<column>)_S 3300 10587 _m
(0-based)_S 61 _t
(column)_S 61 _t
(\(x)_S 61 _t
(coordinate\))_S 2100 10371 _m
(<row>)_S 3300 10371 _m
(0-based)_S 61 _t
(row)_S 61 _t
(\(y)_S 61 _t
(coordinate\))_S 2100 10155 _m
(returns)_S 3300 10155 _m
(list)_S 61 _t
(of)_S 61 _t
(original)_S 61 _t
(column)_S 61 _t
(and)_S 61 _t
(row)_S 61 _t
(positions)_S 1500 9723 _m
(\(color)_S 61 _t
(<value>\))_S 7359 9723 _m
(SET)_S 61 _t
(DRA)_S -14 _t
(WING)_S 61 _t
(COLOR)_S 2100 9507 _m
(<value>)_S 3300 9507 _m
(Drawing)_S 61 _t
(color)_S 61 _t
(\(not)_S 61 _t
(checked)_S 61 _t
(for)_S 61 _t
(validity\))_S 2100 9291 _m
(returns)_S 3300 9291 _m
(<value>)_S 1500 8859 _m
(\(move)_S 61 _t
(<x1>)_S 61 _t
(<y1>)_S 61 _t
([<x2>)_S 61 _t
(<y2>)_S 61 _t
(...]\))_S 7742 8859 _m
(ABSOLUTE)_S 61 _t
(MOVE)_S 1500 8643 _m
(\(moverel)_S 61 _t
(<x1>)_S 61 _t
(<y2>)_S 61 _t
([<x2>)_S 61 _t
(<y2>)_S 61 _t
(...]\))_S 7823 8643 _m
(RELA)_S -20 _t
(TIVE)_S 61 _t
(MOVE)_S 2100 8427 _m
(For)_S 61 _t
(moverel,)_S 61 _t
(all)_S 61 _t
(coordinates)_S 61 _t
(are)_S 61 _t
(relative)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(preceeding)_S 61 _t
(point.)_S 2100 8211 _m
(<x1>)_S 61 _t
(<y1>)_S 3300 8211 _m
(Moves)_S 61 _t
(to)_S 61 _t
(point)_S 61 _t
(x1,y1)_S 61 _t
(in)_S 61 _t
(anticipation)_S 61 _t
(of)_S 61 _t
(draw)_S -12 _t
(.)_S 2100 7995 _m
(<x2>)_S 61 _t
(<y2>)_S 3300 7995 _m
(Draws)_S 61 _t
(to)_S 61 _t
(points)_S 61 _t
(speci\256ed)_S 61 _t
(in)_S 61 _t
(additional)_S 61 _t
(ar)_S -3 _t
(guments.)_S 2100 7779 _m
(returns)_S 3300 7779 _m
(T)_S 61 _t
(if)_S 61 _t
(succeeds,)_S 61 _t
(else)_S 61 _t
(NIL)_S 1500 7347 _m
(\(draw)_S 61 _t
([<x1>)_S 61 _t
(<y1>)_S 61 _t
(...]\))_S 7736 7347 _m
(ABSOLUTE)_S 61 _t
(DRA)_S -14 _t
(W)_S 1500 7131 _m
(\(drawrel)_S 61 _t
([<x1>)_S 61 _t
(<y1>)_S 61 _t
(...]\))_S 7817 7131 _m
(RELA)_S -20 _t
(TIVE)_S 61 _t
(DRA)_S -14 _t
(W)_S 2100 6915 _m
(For)_S 61 _t
(drawrel,)_S 61 _t
(all)_S 61 _t
(coordinates)_S 61 _t
(are)_S 61 _t
(relative)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(preceeding)_S 61 _t
(point.)_S 2100 6699 _m
(<x1>)_S 61 _t
(<y1>)_S 3300 6699 _m
(Point\(s\))_S 61 _t
(drawn)_S 61 _t
(to,)_S 61 _t
(in)_S 61 _t
(order)_S -10 _t
(.)_S 2100 6483 _m
(returns)_S 3300 6483 _m
(T)_S 61 _t
(if)_S 61 _t
(succeeds,)_S 61 _t
(else)_S 61 _t
(NIL)_S 1500 6051 _m
(\(mode)_S 61 _t
(<ax>)_S 61 _t
([<bx>)_S 61 _t
(<width>)_S 61 _t
(<height>\))_S 7555 6051 _m
(SET)_S 61 _t
(DISPLA)_S -17 _t
(Y)_S 61 _t
(MODE)_S 2100 5835 _m
(Standard)_S 47 _t
(modes)_S 47 _t
(require)_S 48 _t
(only)_S 47 _t
(<ax>)_S 47 _t
(ar)_S -3 _t
(gument.)_S 47 _t
(Extended)_S 47 _t
(modes)_S 48 _t
(are)_S 47 _t
("Super)_S -4 _t
(-VGA")_S 47 _t
(or)_S 47 _t
("Super)_S -4 _t
(-EGA")_S 2100 5619 _m
(and)_S 61 _t
(are)_S 61 _t
(display)_S 61 _t
(card)_S 61 _t
(speci\256c.)_S 61 _t
(Not)_S 61 _t
(all)_S 61 _t
(XLISP)_S 61 _t
(versions)_S 61 _t
(support)_S 61 _t
(all)_S 61 _t
(modes.)_S 2100 5403 _m
(<ax>)_S 3300 5403 _m
(Graphic)_S 61 _t
(mode)_S 61 _t
(\(value)_S 61 _t
(passed)_S 61 _t
(in)_S 61 _t
(register)_S 61 _t
(AX\))_S 3300 5187 _m
(Common)_S 61 _t
(standard)_S 61 _t
(Modes:)_S 3300 4971 _m
(0,1)_S 61 _t
(-)_S 61 _t
(40x25)_S 61 _t
(text)_S 3300 4755 _m
(2,3)_S 61 _t
(-)_S 61 _t
(80x25)_S 61 _t
(text)_S 3300 4539 _m
(4,5)_S 61 _t
(-)_S 61 _t
(320x200)_S 61 _t
(4)_S 61 _t
(color)_S 61 _t
(graphics)_S 61 _t
(\(CGA\))_S 3300 4323 _m
(6)_S 61 _t
(-)_S 61 _t
(640x200)_S 61 _t
(monchrome)_S 61 _t
(graphics)_S 61 _t
(\(CGA\))_S 3300 4107 _m
(13)_S 61 _t
(-)_S 61 _t
(320x200)_S 61 _t
(16)_S 61 _t
(color)_S 61 _t
(graphics)_S 61 _t
(\(EGA\))_S 3300 3891 _m
(14)_S 61 _t
(-)_S 61 _t
(640x200)_S 61 _t
(16)_S 61 _t
(color)_S 61 _t
(graphics)_S 61 _t
(\(EGA\))_S 3300 3675 _m
(16)_S 61 _t
(-)_S 61 _t
(640x350)_S 61 _t
(16)_S 61 _t
(color)_S 61 _t
(graphics)_S 61 _t
(\(EGA\))_S 3300 3459 _m
(18)_S 61 _t
(-)_S 61 _t
(640x480)_S 61 _t
(16)_S 61 _t
(color)_S 61 _t
(graphics)_S 61 _t
(\(VGA\))_S 3300 3243 _m
(19)_S 61 _t
(-)_S 61 _t
(320x200)_S 61 _t
(256)_S 61 _t
(color)_S 61 _t
(graphics)_S 61 _t
(\(VGA\))_S 2100 3027 _m
(<bx>)_S 3300 3027 _m
(BX)_S 61 _t
(value)_S 61 _t
(for)_S 61 _t
(some)_S 61 _t
(extended)_S 61 _t
(graphic)_S 61 _t
(modes)_S 2100 2811 _m
(<width>)_S 3300 2811 _m
(width)_S 61 _t
(for)_S 61 _t
(extended)_S 61 _t
(graphic)_S 61 _t
(modes)_S 2100 2595 _m
(<height>)_S 3300 2595 _m
(height)_S 61 _t
(for)_S 61 _t
(extended)_S 61 _t
(graphic)_S 61 _t
(modes)_S 2100 2379 _m
(returns)_S 3300 2379 _m
(T)_S -13 _t
(,)_S 61 _t
(or)_S 61 _t
(NIL)_S 61 _t
(if)_S 61 _t
(fails)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4285 11867 _m
(ADDITIONAL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(81)_S 1500 10986 _m
/HelveticaR 660 _ff
(ADDITIONAL)_S 73 _t
(FUNCTIONS)_S 73 _t
(AND)_S 73 _t
(UTILITIES)_S /Times-RomanR 550 _ff
1500 10550 _m
/Times-BoldR 550 _ff
(STEP)_S -16 _t
(.LSP)_S /Times-RomanR 550 _ff
1500 10118 _m
(This)_S 78 _t
(\256le)_S 78 _t
(contains)_S 78 _t
(a)_S 78 _t
(simple)_S 78 _t
(Lisp)_S 78 _t
(single-step)_S 78 _t
(debugger)_S -10 _t
(.)_S 78 _t
(It)_S 156 _t
(started)_S 78 _t
(as)_S 78 _t
(an)_S 78 _t
(implementation)_S 78 _t
(of)_S 79 _t
(the)_S 78 _t
("hook")_S 1500 9902 _m
(example)_S 72 _t
(in)_S 72 _t
(chapter)_S 72 _t
(20)_S 72 _t
(of)_S 72 _t
(Steele's)_S 72 _t
("Common)_S 72 _t
(Lisp".)_S 72 _t
(This)_S 72 _t
(version)_S 72 _t
(was)_S 72 _t
(brought)_S 72 _t
(up)_S 72 _t
(on)_S 72 _t
(Xlisp)_S 72 _t
(1.7)_S 72 _t
(for)_S 72 _t
(the)_S 1500 9686 _m
(Amiga,)_S 61 _t
(and)_S 61 _t
(then)_S 61 _t
(on)_S 61 _t
(V)_S -23 _t
(AXLISP)_S -20 _t
(.)_S 1500 9254 _m
(T)_S -13 _t
(o)_S 61 _t
(invoke:)_S 61 _t
(\(step)_S 61 _t
(\(whatever)_S -4 _t
(-form)_S 61 _t
(with)_S 61 _t
(ar)_S -3 _t
(gs\)\))_S 1500 8822 _m
(For)_S 77 _t
(each)_S 77 _t
(list)_S 77 _t
(\(interpreted)_S 77 _t
(function)_S 77 _t
(call\),)_S 77 _t
(the)_S 77 _t
(stepper)_S 77 _t
(prints)_S 77 _t
(the)_S 77 _t
(environment)_S 77 _t
(and)_S 77 _t
(the)_S 77 _t
(list,)_S 77 _t
(then)_S 77 _t
(enters)_S 77 _t
(a)_S 1500 8606 _m
(read-eval-print)_S 61 _t
(loop.)_S 61 _t
(At)_S 61 _t
(this)_S 61 _t
(point)_S 61 _t
(the)_S 61 _t
(available)_S 61 _t
(commands)_S 61 _t
(are:)_S 1500 8174 _m
(\(a)_S 61 _t
(list\)<CR>)_S 3300 8174 _m
(evaluate)_S 61 _t
(the)_S 61 _t
(list)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(current)_S 61 _t
(environment,)_S 61 _t
(print)_S 61 _t
(the)_S 61 _t
(result,)_S 61 _t
(and)_S 61 _t
(repeat.)_S 1500 7958 _m
(<CR>)_S 3300 7958 _m
(step)_S 61 _t
(into)_S 61 _t
(the)_S 61 _t
(called)_S 61 _t
(function)_S 1500 7742 _m
(anything_else<CR>)_S 3300 7742 _m
(step)_S 61 _t
(over)_S 61 _t
(the)_S 61 _t
(called)_S 61 _t
(function.)_S 1500 7310 _m
(If)_S 55 _t
(the)_S 54 _t
(stepper)_S 54 _t
(comes)_S 55 _t
(to)_S 54 _t
(a)_S 54 _t
(form)_S 55 _t
(that)_S 54 _t
(is)_S 55 _t
(not)_S 54 _t
(a)_S 54 _t
(list)_S 55 _t
(it)_S 54 _t
(prints)_S 54 _t
(the)_S 55 _t
(form)_S 54 _t
(and)_S 55 _t
(the)_S 54 _t
(value,)_S 54 _t
(and)_S 55 _t
(continues)_S 54 _t
(on)_S 54 _t
(without)_S 1500 7094 _m
(stopping.)_S 1500 6662 _m
(Note)_S 61 _t
(that)_S 61 _t
(stepper)_S 61 _t
(commands)_S 61 _t
(are)_S 61 _t
(executed)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(current)_S 61 _t
(environment.)_S 61 _t
(Since)_S 61 _t
(this)_S 61 _t
(is)_S 61 _t
(the)_S 61 _t
(case,)_S 62 _t
(the)_S 61 _t
(stepper)_S 1500 6446 _m
(commands)_S 42 _t
(can)_S 42 _t
(change)_S 42 _t
(the)_S 42 _t
(current)_S 42 _t
(environment.)_S 42 _t
(For)_S 42 _t
(example,)_S 43 _t
(a)_S 42 _t
(SETF)_S 42 _t
(will)_S 42 _t
(change)_S 42 _t
(an)_S 42 _t
(environment)_S 43 _t
(variable)_S 1500 6230 _m
(and)_S 61 _t
(thus)_S 61 _t
(can)_S 61 _t
(alter)_S 61 _t
(the)_S 61 _t
(course)_S 61 _t
(of)_S 61 _t
(execution.)_S 1500 5798 _m
(Global)_S 61 _t
(variables)_S 61 _t
(-)_S 61 _t
(newline,)_S 61 _t
(*hooklevel*)_S 1500 5366 _m
(Functions/macros)_S 61 _t
(-)_S 61 _t
(while)_S 61 _t
(step)_S 61 _t
(eval-hool-function)_S 61 _t
(step-spaces)_S 61 _t
(step-\257ush)_S 1500 4934 _m
(Note)_S 61 _t
(\320)_S 61 _t
(an)_S 61 _t
(even)_S 61 _t
(more)_S 61 _t
(powerful)_S 61 _t
(stepper)_S 61 _t
(package)_S 61 _t
(is)_S 61 _t
(in)_S 61 _t
(stepper)_S -10 _t
(.lsp)_S 61 _t
(\(documented)_S 61 _t
(in)_S 61 _t
(stepper)_S -10 _t
(.doc\).)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4285 11867 _m
(ADDITIONAL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(82)_S 1500 11235 _m
/Times-BoldR 550 _ff
(PP)_S -16 _t
(.LSP)_S /Times-RomanR 550 _ff
1500 10803 _m
(In)_S 70 _t
(addition)_S 70 _t
(to)_S 69 _t
(the)_S 70 _t
(pretty-printer)_S 70 _t
(itself,)_S 69 _t
(this)_S 70 _t
(\256le)_S 69 _t
(contains)_S 70 _t
(a)_S 70 _t
(few)_S 69 _t
(functions)_S 70 _t
(that)_S 70 _t
(illustrate)_S 69 _t
(some)_S 70 _t
(simple)_S 69 _t
(but)_S 1500 10587 _m
(useful)_S 61 _t
(applications.)_S 1500 10155 _m
(\(pp)_S 61 _t
(<object>)_S 61 _t
([<stream>]\))_S 6845 10155 _m
(PRETTY)_S 61 _t
(PRINT)_S 61 _t
(EXPRESSION)_S 1500 9939 _m
(\(pp-def)_S 61 _t
(<funct>)_S 61 _t
([<stream>]\))_S 6306 9939 _m
(PRETTY)_S 61 _t
(PRINT)_S 61 _t
(FUNCTION/MACRO)_S 1500 9723 _m
(\(pp-\256le)_S 61 _t
(<\256le>)_S 61 _t
([<stream>]\))_S 7569 9723 _m
(PRETTY)_S 61 _t
(PRINT)_S 61 _t
(FILE)_S 2100 9507 _m
(<object>)_S 3300 9507 _m
(The)_S 61 _t
(expression)_S 61 _t
(to)_S 61 _t
(print)_S 2100 9291 _m
(<funct>)_S 3300 9291 _m
(Function)_S 61 _t
(to)_S 61 _t
(print)_S 61 _t
(\(as)_S 61 _t
(DEFUN)_S 61 _t
(or)_S 61 _t
(DEFMACRO\))_S 2100 9075 _m
(<\256le>)_S 3300 9075 _m
(File)_S 61 _t
(to)_S 61 _t
(print)_S 61 _t
(\(specify)_S 61 _t
(either)_S 61 _t
(as)_S 61 _t
(string)_S 61 _t
(or)_S 61 _t
(quoted)_S 61 _t
(symbol\))_S 2100 8859 _m
(<stream>)_S 3300 8859 _m
(Output)_S 61 _t
(stream)_S 61 _t
(\(default)_S 61 _t
(is)_S 61 _t
(*standard-output*\))_S 2100 8643 _m
(returns)_S 3300 8643 _m
(T)_S 1500 8211 _m
(Global)_S 61 _t
(variables:)_S 61 _t
(tabsize)_S 61 _t
(maxsize)_S 61 _t
(miser)_S -4 _t
(-size)_S 61 _t
(min-miser)_S -4 _t
(-car)_S 61 _t
(max-normal-car)_S 1500 7779 _m
(Functions/Macros:)_S 77 _t
(sym-function)_S 78 _t
(pp-\256le)_S 77 _t
(pp-def)_S 77 _t
(make-def)_S 78 _t
(pp)_S 77 _t
(pp1)_S 77 _t
(moveto)_S 78 _t
(spaces)_S 77 _t
(pp-rest-across)_S 78 _t
(pp-rest)_S 1500 7563 _m
(printmacrop)_S 61 _t
(pp-binding-form)_S 61 _t
(pp-do-form)_S 61 _t
(pp-de\256ning-form)_S 61 _t
(pp-pair)_S -4 _t
(-form)_S 1500 7131 _m
(See)_S 61 _t
(the)_S 61 _t
(source)_S 61 _t
(\256le)_S 61 _t
(for)_S 61 _t
(more)_S 61 _t
(information.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4285 11867 _m
(ADDITIONAL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(83)_S 1500 11235 _m
/Times-BoldR 550 _ff
(REP)_S -13 _t
(AIR.LSP)_S /Times-RomanR 550 _ff
1500 10803 _m
(This)_S 61 _t
(\256le)_S 61 _t
(contains)_S 61 _t
(a)_S 61 _t
(structure)_S 61 _t
(editor)_S -10 _t
(.)_S 1500 10587 _m
(Execute)_S 2100 10371 _m
(\(repair)_S 61 _t
('symbol\))_S 61 _t
(to)_S 61 _t
(edit)_S 61 _t
(a)_S 61 _t
(symbol.)_S 2100 10155 _m
(\(repairf)_S 64 _t
(symbol\))_S 64 _t
(to)_S 64 _t
(edit)_S 64 _t
(the)_S 64 _t
(function)_S 64 _t
(binding)_S 64 _t
(of)_S 64 _t
(a)_S 64 _t
(symbol)_S 64 _t
(\(allows)_S 64 _t
(changing)_S 64 _t
(the)_S 64 _t
(ar)_S -3 _t
(gument)_S 64 _t
(list)_S 64 _t
(or)_S 3300 9939 _m
(function)_S 61 _t
(type,)_S 61 _t
(lambda)_S 61 _t
(or)_S 61 _t
(macro\).)_S 1500 9507 _m
(The)_S 68 _t
(editor)_S 68 _t
(alters)_S 68 _t
(the)_S 69 _t
(current)_S 68 _t
(selection)_S 68 _t
(by)_S 68 _t
(copying)_S 68 _t
(so)_S 68 _t
(that)_S 68 _t
(aborting)_S 68 _t
(all)_S 68 _t
(changes)_S 68 _t
(is)_S 68 _t
(generally)_S 68 _t
(posible;)_S 68 _t
(the)_S 1500 9291 _m
(exception)_S 61 _t
(is)_S 61 _t
(when)_S 61 _t
(editing)_S 61 _t
(a)_S 61 _t
(closure,)_S 61 _t
(if)_S 61 _t
(the)_S 61 _t
(closure)_S 61 _t
(is)_S 61 _t
(BACKed)_S 61 _t
(out)_S 61 _t
(of,)_S 61 _t
(the)_S 61 _t
(change)_S 61 _t
(is)_S 61 _t
(permanent.)_S 1500 8859 _m
(For)_S 70 _t
(all)_S 70 _t
(commands)_S 70 _t
(taking)_S 70 _t
(a)_S 70 _t
(numeric)_S 70 _t
(ar)_S -3 _t
(gument,)_S 70 _t
(the)_S 70 _t
(\256rst)_S 70 _t
(element)_S 70 _t
(of)_S 70 _t
(the)_S 70 _t
(selection)_S 70 _t
(is)_S 70 _t
(the)_S 70 _t
(0th)_S 70 _t
(\(as)_S 70 _t
(in)_S 70 _t
(NTH)_S 1500 8643 _m
(function\).)_S 1500 8211 _m
(Any)_S 60 _t
(array)_S 60 _t
(elements)_S 60 _t
(become)_S 60 _t
(lists)_S 60 _t
(when)_S 60 _t
(they)_S 61 _t
(are)_S 60 _t
(selected,)_S 60 _t
(and)_S 60 _t
(return)_S 60 _t
(to)_S 60 _t
(arrays)_S 60 _t
(upon)_S 60 _t
(RETURN)_S 60 _t
(or)_S 61 _t
(BACK)_S 1500 7995 _m
(commands.)_S 1500 7563 _m
(Do)_S 65 _t
(not)_S 65 _t
(create)_S 65 _t
(new)_S 64 _t
(closures,)_S 65 _t
(because)_S 65 _t
(the)_S 65 _t
(environment)_S 64 _t
(will)_S 65 _t
(be)_S 64 _t
(incorrect.)_S 65 _t
(Closures)_S 65 _t
(become)_S 65 _t
(LAMBDA)_S 64 _t
(or)_S 1500 7347 _m
(MACRO)_S 62 _t
(expressions)_S 62 _t
(as)_S 62 _t
(the)_S 63 _t
(selection.)_S 62 _t
(Only)_S 62 _t
(the)_S 62 _t
(closure)_S 63 _t
(body)_S 62 _t
(may)_S 62 _t
(be)_S 62 _t
(changed;)_S 63 _t
(the)_S 62 _t
(ar)_S -3 _t
(gument)_S 62 _t
(list)_S 63 _t
(cannot)_S 1500 7131 _m
(be)_S 61 _t
(successfully)_S 61 _t
(modi\256ed,)_S 61 _t
(nor)_S 61 _t
(can)_S 61 _t
(the)_S 61 _t
(environment.)_S 1500 6699 _m
(For)_S 64 _t
(class)_S 63 _t
(objects,)_S 64 _t
(only)_S 63 _t
(the)_S 63 _t
(methods)_S 63 _t
(and)_S 64 _t
(message)_S 63 _t
(names)_S 64 _t
(can)_S 63 _t
(be)_S 64 _t
(modi\256ed.)_S 63 _t
(For)_S 63 _t
(instance)_S 64 _t
(objects,)_S 63 _t
(instance)_S 1500 6483 _m
(variables)_S 69 _t
(can)_S 69 _t
(be)_S 69 _t
(examined)_S 69 _t
(\(if)_S 69 _t
(the)_S 69 _t
(object)_S 69 _t
(under)_S -4 _t
(-stands)_S 69 _t
(the)_S 69 _t
(message)_S 69 _t
(:<ivar>)_S 69 _t
(for)_S 69 _t
(the)_S 69 _t
(particular)_S 69 _t
(ivar\),)_S 69 _t
(and)_S 1500 6267 _m
(changed)_S 61 _t
(\(if)_S 61 _t
(:SET)_S -17 _t
(-IV)_S -23 _t
(AR)_S 61 _t
(is)_S 61 _t
(de\256ned)_S 61 _t
(for)_S 61 _t
(that)_S 61 _t
(class,)_S 61 _t
(as)_S 61 _t
(it)_S 61 _t
(is)_S 61 _t
(if)_S 61 _t
(CLASSES.LSP)_S 61 _t
(is)_S 61 _t
(used\).)_S 1500 5835 _m
(\(command)_S 61 _t
(list)_S 61 _t
(on)_S 61 _t
(next)_S 61 _t
(page\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4285 11867 _m
(ADDITIONAL)_S 61 _t
(FUNCTIONS)_S 8699 11867 _m
(Page)_S 61 _t
(84)_S 1500 11235 _m
(COMMANDS)_S 61 _t
(\(general\):)_S 2100 11019 _m
(?)_S 3300 11019 _m
(list)_S 61 _t
(available)_S 61 _t
(commands)_S 61 _t
(for)_S 61 _t
(the)_S 61 _t
(selection.)_S 2100 10803 _m
(RETURN)_S 3300 10803 _m
(exit,)_S 61 _t
(saving)_S 61 _t
(all)_S 61 _t
(changes.)_S 2100 10587 _m
(ABOR)_S -11 _t
(T)_S 3300 10587 _m
(exit,)_S 61 _t
(without)_S 61 _t
(changes.)_S 2100 10371 _m
(BACK)_S 3300 10371 _m
(go)_S 61 _t
(back)_S 61 _t
(one)_S 61 _t
(level)_S 61 _t
(\(as)_S 61 _t
(before)_S 61 _t
(CAR)_S 61 _t
(CDR)_S 61 _t
(or)_S 61 _t
(N)_S 61 _t
(commands\).)_S 2100 10155 _m
(B)_S 61 _t
(n)_S 3300 10155 _m
(go)_S 61 _t
(back)_S 61 _t
(n)_S 61 _t
(levels.)_S 2100 9939 _m
(L)_S 3300 9939 _m
(display)_S 61 _t
(selection)_S 61 _t
(using)_S 61 _t
(pprint;)_S 61 _t
(if)_S 61 _t
(selection)_S 61 _t
(is)_S 61 _t
(symbol,)_S 61 _t
(give)_S 61 _t
(short)_S 61 _t
(description.)_S 2100 9723 _m
(MAP)_S 3300 9723 _m
(pprints)_S 64 _t
(each)_S 64 _t
(element)_S 65 _t
(of)_S 64 _t
(selection,)_S 64 _t
(or)_S 64 _t
(if)_S 64 _t
(selection)_S 65 _t
(is)_S 64 _t
(symbol)_S 64 _t
(then)_S 65 _t
(gives)_S 64 _t
(complete)_S 3300 9507 _m
(description)_S 61 _t
(of)_S 61 _t
(properties.)_S 2100 9291 _m
(PLEV)_S 61 _t
(x)_S 3300 9291 _m
(set)_S 61 _t
(*print-level*)_S 61 _t
(to)_S 61 _t
(x.)_S 61 _t
(\(Initial)_S 61 _t
(default)_S 61 _t
(is)_S 61 _t
(*rep-print-level*\))_S 2100 9075 _m
(PLEN)_S 61 _t
(x)_S 3300 9075 _m
(set)_S 61 _t
(*print-length)_S 61 _t
(to)_S 61 _t
(x.)_S 61 _t
(\(Initial)_S 61 _t
(default)_S 61 _t
(is)_S 61 _t
(*rep-print-length*\))_S 2100 8859 _m
(EV)_S -23 _t
(AL)_S 61 _t
(x)_S 3300 8859 _m
(evaluates)_S 61 _t
(x)_S 61 _t
(and)_S 61 _t
(prints)_S 61 _t
(result.)_S 61 _t
(The)_S 61 _t
(symbol)_S 61 _t
(@)_S 61 _t
(is)_S 61 _t
(bound)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(selection.)_S 2100 8643 _m
(REPLACE)_S 61 _t
(x)_S 3300 8643 _m
(replaces)_S 69 _t
(the)_S 69 _t
(current)_S 69 _t
(selection)_S 69 _t
(with)_S 69 _t
(evaluated)_S 69 _t
(x.)_S 69 _t
(The)_S 69 _t
(symbol)_S 69 _t
(@)_S 69 _t
(is)_S 69 _t
(bound)_S 69 _t
(to)_S 69 _t
(the)_S 3300 8427 _m
(selection.)_S 1500 8211 _m
(COMMANDS)_S 61 _t
(\(if)_S 61 _t
(selection)_S 61 _t
(is)_S 61 _t
(symbol\):)_S 2100 7995 _m
(V)_S -23 _t
(ALUE)_S 3300 7995 _m
(edit)_S 61 _t
(the)_S 61 _t
(value)_S 61 _t
(binding.)_S 2100 7779 _m
(FUNCTION)_S 3300 7779 _m
(edit)_S 61 _t
(the)_S 61 _t
(function)_S 61 _t
(binding)_S 61 _t
(\(must)_S 61 _t
(be)_S 61 _t
(a)_S 61 _t
(closure\).)_S 2100 7563 _m
(PROP)_S 61 _t
(x)_S 3300 7563 _m
(edit)_S 61 _t
(property)_S 61 _t
(x.)_S 1500 7347 _m
(COMMANDS)_S 61 _t
(\(if)_S 61 _t
(selection)_S 61 _t
(is)_S 61 _t
(list\):)_S 2100 7131 _m
(CAR)_S 3300 7131 _m
(select)_S 61 _t
(the)_S 61 _t
(CAR)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(current)_S 61 _t
(selection.)_S 2100 6915 _m
(CDR)_S 3300 6915 _m
(select)_S 61 _t
(the)_S 61 _t
(CDR)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(current)_S 61 _t
(selection.)_S 2100 6699 _m
(n)_S 3300 6699 _m
(where)_S 56 _t
(n)_S 56 _t
(is)_S 55 _t
(small)_S 56 _t
(non-negative)_S 56 _t
(integer)_S -7 _t
(,)_S 56 _t
(changes)_S 56 _t
(current)_S 56 _t
(selection)_S 56 _t
(to)_S 56 _t
(\(NTH)_S 56 _t
(n)_S 56 _t
(list\).)_S 2100 6483 _m
(SUBST)_S 61 _t
(x)_S 61 _t
(y)_S 3300 6483 _m
(all)_S 49 _t
(occurances)_S 50 _t
(of)_S 49 _t
(\(quoted\))_S 49 _t
(y)_S 50 _t
(are)_S 49 _t
(replaced)_S 49 _t
(with)_S 50 _t
(\(quoted\))_S 49 _t
(x.)_S 49 _t
(EQUAL)_S 49 _t
(is)_S 50 _t
(used)_S 49 _t
(for)_S 49 _t
(the)_S 3300 6267 _m
(comparison.)_S 2100 6051 _m
(RAISE)_S 61 _t
(n)_S 3300 6051 _m
(removes)_S 61 _t
(parenthesis)_S 61 _t
(surrounding)_S 61 _t
(nth)_S 61 _t
(element)_S 61 _t
(of)_S 61 _t
(selection.)_S 2100 5835 _m
(LOWER)_S 61 _t
(n)_S 61 _t
(m)_S 3300 5835 _m
(inserts)_S 61 _t
(parenthesis)_S 61 _t
(starting)_S 61 _t
(with)_S 61 _t
(the)_S 61 _t
(nth)_S 61 _t
(element,)_S 61 _t
(for)_S 61 _t
(m)_S 61 _t
(elements.)_S 2100 5619 _m
(ARRA)_S -17 _t
(Y)_S 61 _t
(n)_S 61 _t
(m)_S 3300 5619 _m
(as)_S 61 _t
(in)_S 61 _t
(LOWER,)_S 61 _t
(but)_S 61 _t
(makes)_S 61 _t
(elements)_S 61 _t
(into)_S 61 _t
(an)_S 61 _t
(array)_S -12 _t
(.)_S 2100 5403 _m
(I)_S 61 _t
(n)_S 61 _t
(x)_S 3300 5403 _m
(inserts)_S 61 _t
(\(quoted\))_S 61 _t
(x)_S 61 _t
(before)_S 61 _t
(nth)_S 61 _t
(element)_S 61 _t
(in)_S 61 _t
(selection.)_S 2100 5187 _m
(R)_S 61 _t
(n)_S 61 _t
(x)_S 3300 5187 _m
(replaces)_S 61 _t
(nth)_S 61 _t
(element)_S 61 _t
(in)_S 61 _t
(selection)_S 61 _t
(with)_S 61 _t
(\(quoted\))_S 61 _t
(x.)_S 2100 4971 _m
(D)_S 61 _t
(n)_S 3300 4971 _m
(deletes)_S 61 _t
(nth)_S 61 _t
(element)_S 61 _t
(in)_S 61 _t
(selection.)_S 1500 4539 _m
(All)_S 61 _t
(function)_S 61 _t
(names)_S 61 _t
(and)_S 61 _t
(global)_S 61 _t
(variables)_S 61 _t
(start)_S 61 _t
(with)_S 61 _t
(the)_S 61 _t
(string)_S 61 _t
("rep-")_S 61 _t
(or)_S 61 _t
("*rep-*".)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4097 11867 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 8699 11867 _m
(Page)_S 61 _t
(85)_S 1500 10986 _m
/HelveticaR 660 _ff
(BUG)_S 73 _t
(FIXES)_S 73 _t
(AND)_S 73 _t
(EXTENSIONS)_S /Times-RomanR 550 _ff
1500 10334 _m
(In)_S 49 _t
(this)_S 50 _t
(section,)_S 49 _t
(CL)_S 50 _t
(means)_S 49 _t
("Common)_S 50 _t
(Lisp)_S 49 _t
(compatible)_S 50 _t
(to)_S 49 _t
(the)_S 50 _t
(extent)_S 49 _t
(possible".)_S 50 _t
(CX)_S 49 _t
(means)_S 50 _t
("now)_S 49 _t
(works)_S 50 _t
(with)_S 1500 10118 _m
(complex)_S 61 _t
(numbers".)_S 61 _t
(CR)_S 60 _t
(means)_S 61 _t
("now)_S 61 _t
(works)_S 61 _t
(with)_S 61 _t
(ratios".)_S 61 _t
(*)_S 61 _t
(means)_S 60 _t
("implemented)_S 61 _t
(in)_S 61 _t
(LISP)_S 61 _t
(rather)_S 61 _t
(than)_S 61 _t
(C".)_S 1500 9902 _m
(#)_S 61 _t
(means)_S 61 _t
("implementation)_S 61 _t
(moved)_S 61 _t
(from)_S 61 _t
(LISP)_S 61 _t
(to)_S 61 _t
(C".)_S 5008 9470 _m
/Times-BoldR 550 _ff
(Bug)_S 61 _t
(Fixes)_S /Times-RomanR 550 _ff
1500 9038 _m
(REST)_S -3 _t
(ORE)_S 59 _t
(did)_S 59 _t
(not)_S 59 _t
(work)_S 59 _t
(--)_S 59 _t
(several)_S 59 _t
(bugs)_S 60 _t
(for)_S 59 _t
(80x86)_S 59 _t
(systems.)_S 59 _t
(Only)_S 59 _t
(one)_S 59 _t
(restore)_S 59 _t
(would)_S 59 _t
(work)_S 59 _t
(per)_S 59 _t
(session)_S 60 _t
(--)_S 1500 8822 _m
(all)_S 61 _t
(systems.)_S 1500 8390 _m
(:downcase)_S 61 _t
(for)_S 61 _t
(variable)_S 61 _t
(*printcase*)_S 61 _t
(did)_S 61 _t
(not)_S 61 _t
(work)_S 61 _t
(with)_S 61 _t
(some)_S 61 _t
(compilers.)_S 1500 7958 _m
(Modi\256cations)_S 61 _t
(to)_S 61 _t
(make)_S 61 _t
(the)_S 61 _t
(source)_S 61 _t
(acceptable)_S 61 _t
(to)_S 61 _t
(ANSI)_S 61 _t
(C)_S 61 _t
(compilers.)_S 1500 7526 _m
(V)_S -20 _t
(alues)_S 49 _t
(for)_S 48 _t
(ADEPTH)_S 48 _t
(and)_S 48 _t
(EDEPTH)_S 48 _t
(changed)_S 49 _t
(to)_S 48 _t
(more)_S 48 _t
(reasonable)_S 48 _t
(values)_S 48 _t
(--)_S 49 _t
(before)_S 48 _t
(this)_S 48 _t
(change)_S 48 _t
(the)_S 48 _t
(processor)_S 1500 7310 _m
(stack)_S 61 _t
(would)_S 61 _t
(over\257ow)_S 61 _t
(\256rst,)_S 61 _t
(causing)_S 61 _t
(a)_S 61 _t
(crash.)_S 1500 6878 _m
(On)_S 56 _t
(systems)_S 57 _t
(with)_S 56 _t
(16)_S 57 _t
(bit)_S 56 _t
(integers:)_S 57 _t
(STRCA)_S -20 _t
(T)_S 57 _t
(crashes)_S 56 _t
(when)_S 57 _t
(aggregate)_S 56 _t
(size)_S 57 _t
(of)_S 56 _t
(ar)_S -3 _t
(gument)_S 57 _t
(strings)_S 56 _t
(were)_S 57 _t
(greater)_S 1500 6662 _m
(than)_S 59 _t
(32k.)_S 60 _t
(MAKE-ARRA)_S -17 _t
(Y)_S 60 _t
(crashes)_S 60 _t
(on)_S 59 _t
(too-lar)_S -3 _t
(ge)_S 60 _t
(arrays.)_S 60 _t
(DOTIMES,)_S 60 _t
(AREF)_S -14 _t
(,)_S 59 _t
(AREF)_S 60 _t
(and)_S 60 _t
(NTH)_S 60 _t
(place)_S 60 _t
(forms)_S 1500 6446 _m
(of)_S 102 _t
(SETF)_S -14 _t
(,)_S 101 _t
(MAKE-STRING-INPUT)_S -17 _t
(-STREAM)_S 203 _t
(and)_S 102 _t
(GET)_S -17 _t
(-OUTPUT)_S -17 _t
(-STREAM-STRING)_S 102 _t
(treat)_S 101 _t
(numeric)_S 1500 6230 _m
(ar)_S -3 _t
(gument)_S 61 _t
(modulo)_S 61 _t
(65536.)_S 61 _t
(MAKE-STRING-INPUT)_S -17 _t
(-STREAM)_S 61 _t
(did)_S 61 _t
(not)_S 61 _t
(check)_S 61 _t
(for)_S 61 _t
(start>end.)_S 1500 5798 _m
(Strings)_S 61 _t
(containing)_S 61 _t
(nulls)_S 61 _t
(could)_S 61 _t
(not)_S 61 _t
(be)_S 61 _t
(read)_S 61 _t
(or)_S 61 _t
(printed.)_S 1500 5366 _m
(NTH)_S 61 _t
(and)_S 61 _t
(NTHCDR)_S 61 _t
(failed)_S 61 _t
(for)_S 61 _t
(zero)_S 61 _t
(length)_S 61 _t
(lists.)_S 1500 4934 _m
(Unnamed)_S 61 _t
(streams)_S 61 _t
(did)_S 61 _t
(not)_S 61 _t
(survive)_S 61 _t
(garbage)_S 61 _t
(collections.)_S 1500 4502 _m
(\(format)_S 61 _t
(nil)_S 61 _t
(...\))_S 61 _t
(did)_S 61 _t
(not)_S 61 _t
(protect)_S 61 _t
(from)_S 61 _t
(garbage)_S 61 _t
(collection)_S 61 _t
(the)_S 61 _t
(unnamed)_S 61 _t
(stream)_S 61 _t
(it)_S 61 _t
(creates.)_S 1500 4070 _m
(SOR)_S -11 _t
(T)_S 61 _t
(did)_S 61 _t
(not)_S 61 _t
(protect)_S 61 _t
(some)_S 61 _t
(pointers)_S 61 _t
(from)_S 61 _t
(garbage)_S 61 _t
(collection.)_S 1500 3638 _m
(SYMBOL-NAME)_S 68 _t
(SYMBOL-V)_S -23 _t
(ALUE)_S 68 _t
(SYMBOL-PLIST)_S 67 _t
(BOUNDP)_S 68 _t
(and)_S 67 _t
(FBOUNDP)_S 68 _t
(failed)_S 68 _t
(with)_S 67 _t
(symbol)_S 1500 3422 _m
(NIL)_S 61 _t
(as)_S 61 _t
(ar)_S -3 _t
(gument.)_S 1500 2990 _m
(LAST)_S 61 _t
(returned)_S 61 _t
(wrong)_S 61 _t
(value)_S 61 _t
(when)_S 61 _t
(its)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(list)_S 61 _t
(ended)_S 61 _t
(with)_S 61 _t
(a)_S 61 _t
(dotted)_S 61 _t
(pair)_S -10 _t
(.)_S 1500 2558 _m
(*gc-hook*)_S 91 _t
(was)_S 92 _t
(not)_S 91 _t
(rebound)_S 91 _t
(to)_S 91 _t
(NIL)_S 91 _t
(during)_S 92 _t
(execution)_S 91 _t
(of)_S 91 _t
(gchook)_S 92 _t
(function,)_S 91 _t
(causing)_S 91 _t
(potential)_S 91 _t
(in\256nite)_S 1500 2342 _m
(recursion)_S 61 _t
(and)_S 61 _t
(crash.)_S 1500 1910 _m
(Executing)_S 61 _t
(RETURN)_S 61 _t
(from)_S 61 _t
(within)_S 61 _t
(a)_S 61 _t
(DOLIST)_S 61 _t
(or)_S 61 _t
(DOTIMES)_S 61 _t
(caused)_S 61 _t
(the)_S 61 _t
(environment)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(wrong.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4097 11867 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 8699 11867 _m
(Page)_S 61 _t
(86)_S 1500 11235 _m
(When)_S 77 _t
(errors)_S 78 _t
(occured)_S 77 _t
(during)_S 78 _t
(loading,)_S 77 _t
(which)_S 78 _t
(were)_S 77 _t
(not)_S 78 _t
(caught,)_S 77 _t
(the)_S 78 _t
(\256le)_S 77 _t
(would)_S 78 _t
(be)_S 77 _t
(left)_S 78 _t
(open.)_S 77 _t
(EV)_S -23 _t
(AL)_S 78 _t
(and)_S 1500 11019 _m
(LOAD)_S 61 _t
(did)_S 61 _t
(not)_S 61 _t
(use)_S 61 _t
(global)_S 61 _t
(environment.)_S 61 _t
(EV)_S -23 _t
(ALHOOK's)_S 61 _t
(default)_S 61 _t
(environment)_S 61 _t
(was)_S 61 _t
(not)_S 61 _t
(global.)_S 1500 10587 _m
(Invalid)_S 61 _t
(symbols)_S 61 _t
(\(those)_S 61 _t
(containing)_S 61 _t
(control)_S 61 _t
(characters,)_S 61 _t
(for)_S 61 _t
(instance\),)_S 61 _t
(can)_S 61 _t
(no)_S 61 _t
(longer)_S 61 _t
(be)_S 61 _t
(created)_S 61 _t
(with)_S 62 _t
(intern)_S 1500 10371 _m
(and)_S 61 _t
(make-symbol.)_S 1500 9939 _m
(The)_S 61 _t
(key)_S 62 _t
(T)_S -13 _t
(,)_S 61 _t
(meaning)_S 62 _t
("otherwise")_S 61 _t
(in)_S 61 _t
(the)_S 62 _t
(CASE)_S 61 _t
(function)_S 62 _t
(used)_S 61 _t
(to)_S 61 _t
(be)_S 62 _t
(allowed)_S 61 _t
(in)_S 61 _t
(any)_S 62 _t
(position.)_S 61 _t
(Now)_S 62 _t
(it)_S 61 _t
(only)_S 1500 9723 _m
(means)_S 61 _t
("otherwise")_S 61 _t
(when)_S 61 _t
(used)_S 61 _t
(as)_S 61 _t
(the)_S 61 _t
(last)_S 61 _t
(case.)_S 1500 9291 _m
(The)_S 61 _t
(lexical)_S 61 _t
(and)_S 62 _t
(functional)_S 61 _t
(environment)_S 61 _t
(of)_S 61 _t
(send)_S 61 _t
(of)_S 61 _t
(:answer)_S 62 _t
(\(which)_S 61 _t
(de\256nes)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(method\))_S 61 _t
(are)_S 61 _t
(now)_S 61 _t
(used)_S 1500 9075 _m
(during)_S 61 _t
(the)_S 61 _t
(method's)_S 61 _t
(evaluation,)_S 61 _t
(rather)_S 61 _t
(than)_S 61 _t
(the)_S 61 _t
(global)_S 61 _t
(environment.)_S 1500 8643 _m
(Signatures)_S 61 _t
(added)_S 61 _t
(for)_S 61 _t
(WKS)_S 61 _t
(\256les)_S 61 _t
(so)_S 61 _t
(that)_S 61 _t
(invalid)_S 61 _t
(ones)_S 61 _t
(will)_S 61 _t
(be)_S 61 _t
(rejected.)_S 1500 8211 _m
(Checks)_S 61 _t
(added)_S 61 _t
(for)_S 61 _t
(\256le)_S 61 _t
(names)_S 61 _t
(and)_S 61 _t
(identi\256er)_S 61 _t
(names)_S 61 _t
(being)_S 61 _t
(too)_S 61 _t
(long.)_S 1500 7779 _m
(Indexing)_S 50 _t
(code)_S 51 _t
(\256xed)_S 51 _t
(to)_S 50 _t
(allow)_S 51 _t
(almost)_S 51 _t
(64k)_S 50 _t
(long)_S 51 _t
(strings)_S 50 _t
(in)_S 51 _t
(16)_S 50 _t
(bit)_S 51 _t
(systems.)_S 51 _t
(It)_S 50 _t
(is)_S 51 _t
(no)_S 50 _t
(longer)_S 51 _t
(possible)_S 50 _t
(to)_S 51 _t
(allocate)_S 1500 7563 _m
(arrays)_S 61 _t
(or)_S 61 _t
(strings)_S 61 _t
(that)_S 61 _t
(are)_S 61 _t
(too)_S 61 _t
(long)_S 61 _t
(for)_S 61 _t
(the)_S 61 _t
(underlying)_S 61 _t
(system.)_S 1500 7131 _m
(Circularity)_S 47 _t
(checks)_S 48 _t
(added)_S 47 _t
(to)_S 47 _t
(PRINT)_S 48 _t
(LAST)_S 47 _t
(BUTLAST)_S 47 _t
(LENGTH)_S 48 _t
(MEMBER)_S 47 _t
(and)_S 47 _t
(MAP)_S 47 _t
(functions.)_S 48 _t
(An)_S 47 _t
(error)_S 1500 6915 _m
(is)_S 61 _t
(produced)_S 61 _t
(for)_S 61 _t
(all)_S 61 _t
(but)_S 61 _t
(MEMBER,)_S 61 _t
(which)_S 61 _t
(will)_S 61 _t
(execute)_S 122 _t
(correctly)_S -12 _t
(.)_S 4463 6267 _m
/Times-BoldR 550 _ff
(User)_S 61 _t
(Interface)_S 61 _t
(Changes)_S /Times-RomanR 550 _ff
1500 5835 _m
(-w)_S 61 _t
(command)_S 61 _t
(line)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(to)_S 61 _t
(specify)_S 61 _t
(alternate)_S 61 _t
(or)_S 61 _t
(no)_S 61 _t
(workspace.)_S 1500 5403 _m
(-?)_S 61 _t
(command)_S 61 _t
(line)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(gives)_S 61 _t
(usage)_S 61 _t
(message.)_S 1500 4971 _m
(init.lsp)_S 61 _t
(not)_S 61 _t
(loaded)_S 61 _t
(if)_S 61 _t
(workspace)_S 61 _t
(loaded.)_S 1500 4539 _m
(Search)_S 61 _t
(path)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(provided)_S 61 _t
(for)_S 61 _t
(workspaces)_S 61 _t
(and)_S 61 _t
(.lsp)_S 61 _t
(\256les.)_S 1500 4107 _m
(Standard)_S 60 _t
(input)_S 60 _t
(and)_S 60 _t
(output)_S 60 _t
(can)_S 60 _t
(be)_S 60 _t
(redirected.)_S 60 _t
(*TERMINAL-IO*)_S 60 _t
(stream)_S 60 _t
(added)_S 60 _t
(which)_S 60 _t
(is)_S 60 _t
(always)_S 60 _t
(bound)_S 60 _t
(to)_S 1500 3891 _m
(console)_S 61 _t
(\(stderr\).)_S 1500 3459 _m
(Non-error)_S 61 _t
(messages)_S 61 _t
(are)_S 61 _t
(sent)_S 61 _t
(to)_S 61 _t
(*DEBUG-IO*)_S 61 _t
(so)_S 61 _t
(they)_S 61 _t
(don't)_S 61 _t
(clutter)_S 61 _t
(*ST)_S -15 _t
(ANDARD-OUTPUT*)_S 1500 3027 _m
(Results)_S 46 _t
(of)_S 47 _t
(evaluations)_S 46 _t
(are)_S 47 _t
(printed)_S 47 _t
(on)_S 46 _t
(a)_S 47 _t
(fresh)_S 46 _t
(line)_S 47 _t
(rather)_S 47 _t
(than)_S 46 _t
(at)_S 47 _t
(the)_S 47 _t
(end)_S 46 _t
(of)_S 47 _t
(the)_S 46 _t
(preceeding)_S 47 _t
(line)_S 47 _t
(\(if)_S 46 _t
(any\).)_S 47 _t
(This)_S 1500 2811 _m
(enhances)_S 61 _t
(readability)_S -12 _t
(.)_S 1500 2379 _m
(Display)_S 61 _t
(writes)_S 61 _t
(are)_S 61 _t
(buffered.)_S 1500 1947 _m
(Character)_S 61 _t
(literals)_S 61 _t
(available)_S 61 _t
(for)_S 61 _t
(all)_S 61 _t
(256)_S 61 _t
(values.)_S 61 _t
(CL)_S 1500 1515 _m
(Uninterned)_S 61 _t
(symbols)_S 61 _t
(print)_S 61 _t
(with)_S 61 _t
(leading)_S 61 _t
(#:.)_S 61 _t
(CL)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4097 11867 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 8699 11867 _m
(Page)_S 61 _t
(87)_S 1500 11235 _m
(PRIN1)_S 61 _t
(generates)_S 61 _t
(appropriate)_S 61 _t
(escape)_S 61 _t
(sequences)_S 61 _t
(for)_S 61 _t
(control)_S 61 _t
(and)_S 61 _t
(meta)_S 61 _t
(characters)_S 61 _t
(in)_S 61 _t
(strings.)_S 61 _t
(CL)_S 1500 10803 _m
(Read)_S 61 _t
(macro)_S 61 _t
(#.)_S 61 _t
(added.)_S 61 _t
(CL)_S 1500 10371 _m
(Lisp)_S 61 _t
(code)_S 61 _t
(for)_S 61 _t
(nested)_S 61 _t
(backquote)_S 61 _t
(macros)_S 61 _t
(added.)_S 61 _t
(CL)_S 1500 9939 _m
(Read)_S 61 _t
(macro)_S 61 _t
(#C)_S 61 _t
(added)_S 61 _t
(for)_S 61 _t
(complex)_S 61 _t
(numbers.)_S 61 _t
(CL)_S 1500 9507 _m
(Semantics)_S 61 _t
(for)_S 61 _t
(#S)_S 61 _t
(read)_S 61 _t
(macro)_S 61 _t
(changed)_S 61 _t
(so)_S 61 _t
(that)_S 61 _t
(it)_S 61 _t
(can)_S 61 _t
(read)_S 61 _t
(in)_S 61 _t
(structures)_S 61 _t
(written)_S 61 _t
(by)_S 61 _t
(PRINT)_S -13 _t
(.)_S 61 _t
(CL)_S 1500 9075 _m
(PRINT)_S 61 _t
(of)_S 61 _t
(\256le)_S 61 _t
(streams)_S 61 _t
(shows)_S 61 _t
(\256le)_S 61 _t
(name,)_S 61 _t
(or)_S 61 _t
("closed")_S 61 _t
(if)_S 61 _t
(a)_S 61 _t
(closed)_S 61 _t
(\256le)_S 61 _t
(stream.)_S 1500 8643 _m
(*PRINT)_S -17 _t
(-CASE*)_S 61 _t
(now)_S 61 _t
(applies)_S 61 _t
(to)_S 61 _t
(PRINC.)_S 61 _t
(CL)_S 1500 8211 _m
(Added)_S 67 _t
(*READT)_S -15 _t
(ABLE-CASE*)_S 67 _t
(to)_S 67 _t
(control)_S 66 _t
(case)_S 67 _t
(conversion)_S 67 _t
(on)_S 67 _t
(input)_S 67 _t
(and)_S 67 _t
(output,)_S 67 _t
(allowing)_S 67 _t
(case)_S 67 _t
(sensitive)_S 1500 7995 _m
(code.)_S 61 _t
(CL-like)_S 4373 7347 _m
/Times-BoldR 550 _ff
(New/Changed)_S 61 _t
(Data)_S 61 _t
(T)_S -13 _t
(ypes)_S /Times-RomanR 550 _ff
1500 6915 _m
(NIL)_S 61 _t
(--)_S 61 _t
(was)_S 61 _t
(treated)_S 61 _t
(as)_S 61 _t
(a)_S 61 _t
(special)_S 61 _t
(case,)_S 61 _t
(now)_S 61 _t
(just)_S 61 _t
(a)_S 61 _t
(normal)_S 61 _t
(symbol.)_S 1500 6699 _m
(symbols)_S 61 _t
(--)_S 61 _t
(value)_S 61 _t
(binding)_S 61 _t
(can)_S 61 _t
(optionally)_S 61 _t
(be)_S 61 _t
(constant)_S 61 _t
(or)_S 61 _t
(special.)_S 1500 6483 _m
(ratio)_S 61 _t
(numbers)_S 61 _t
(--)_S 61 _t
(new)_S 61 _t
(type.)_S 1500 6267 _m
(complex)_S 61 _t
(numbers)_S 61 _t
(--)_S 61 _t
(new)_S 61 _t
(type,)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(integer)_S 61 _t
(or)_S 61 _t
(real.)_S 1500 6051 _m
(character)_S 61 _t
(strings)_S 61 _t
(--)_S 61 _t
(The)_S 61 _t
(ASCII)_S 61 _t
(NUL)_S 61 _t
(\(code)_S 61 _t
(0\))_S 61 _t
(is)_S 61 _t
(now)_S 61 _t
(a)_S 61 _t
(valid)_S 61 _t
(character)_S -10 _t
(.)_S 1500 5835 _m
(objects)_S 61 _t
(--)_S 61 _t
(objects)_S 61 _t
(of)_S 61 _t
(class)_S 61 _t
(Class)_S 61 _t
(have)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(instance)_S 61 _t
(variable)_S 61 _t
(which)_S 61 _t
(is)_S 61 _t
(the)_S 61 _t
(print)_S 61 _t
(name)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(class.)_S 1500 5619 _m
(hash-table)_S 61 _t
(--)_S 61 _t
(new)_S 61 _t
(type,)_S 61 _t
(close)_S 61 _t
(to)_S 61 _t
(CL)_S 1500 5403 _m
(random-state)_S 61 _t
(--)_S 61 _t
(new)_S 61 _t
(type,)_S 61 _t
(CL)_S 1500 5187 _m
(Property)_S 61 _t
(list)_S 61 _t
(properties)_S 61 _t
(are)_S 61 _t
(no)_S 61 _t
(longer)_S 61 _t
(limited)_S 61 _t
(to)_S 61 _t
(just)_S 61 _t
(symbols)_S 61 _t
(CL)_S 4227 4539 _m
/Times-BoldR 550 _ff
(New)_S 61 _t
(V)_S -16 _t
(ariables)_S 61 _t
(and)_S 61 _t
(Constants)_S /Times-RomanR 550 _ff
1500 4107 _m
(*apply-hook*)_S 61 _t
(Now)_S 61 _t
(activated)_S 1500 3891 _m
(*displace-macros*)_S 63 _t
(Macros)_S 63 _t
(are)_S 63 _t
(replaced)_S 62 _t
(with)_S 63 _t
(their)_S 62 _t
(expansions)_S 63 _t
(when)_S 63 _t
(possible)_S 62 _t
(*dos-input*)_S 63 _t
(MSDOS)_S 62 _t
(only)_S -12 _t
(,)_S 2100 3675 _m
(uses)_S 61 _t
(DOS)_S 61 _t
(interface)_S 61 _t
(to)_S 61 _t
(interact)_S 61 _t
(with)_S 61 _t
(user)_S -10 _t
(.)_S 61 _t
(Allows)_S 61 _t
(recall)_S 61 _t
(of)_S 61 _t
(earlier)_S 61 _t
(command\(s\).)_S 1500 3459 _m
(*print-level*)_S 61 _t
(CL)_S 1500 3243 _m
(*print-length*)_S 61 _t
(CL)_S 1500 3027 _m
(*random-state*)_S 61 _t
(CL)_S 1500 2811 _m
(*ratio-format*)_S 1500 2595 _m
(*readtable-case*)_S 61 _t
(CL-like)_S 1500 2379 _m
(*terminal-io*)_S 61 _t
(CL)_S 1500 2163 _m
(internal-time-units-per)_S -4 _t
(-second)_S 61 _t
(CL)_S 1500 1947 _m
(pi)_S 61 _t
(CL)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4097 11867 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 8699 11867 _m
(Page)_S 61 _t
(88)_S 4835 11235 _m
/Times-BoldR 550 _ff
(New)_S 61 _t
(functions)_S /Times-RomanR 550 _ff
1500 10803 _m
(ACONS)_S 61 _t
(CL*)_S 1500 10587 _m
(ACOSH)_S 61 _t
(CL*)_S 1500 10371 _m
(ADJOIN)_S 61 _t
(CL)_S 1500 10155 _m
(APPL)_S -18 _t
(YHOOK)_S 61 _t
(CL)_S 1500 9939 _m
(ASH)_S 61 _t
(CL)_S 1500 9723 _m
(ASINH)_S 61 _t
(CL*)_S 1500 9507 _m
(A)_S -20 _t
(T)_S -15 _t
(ANH)_S 61 _t
(CL*)_S 1500 9291 _m
(BUTLAST)_S 61 _t
(CL)_S 1500 9075 _m
(CEILING)_S 61 _t
(CL)_S 1500 8859 _m
(CIS)_S 61 _t
(CL*)_S 1500 8643 _m
(CLREOL)_S 61 _t
(\(clear)_S 61 _t
(to)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(line)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 8427 _m
(CLRHASH)_S 61 _t
(CL)_S 1500 8211 _m
(CLS)_S 61 _t
(\(clear)_S 61 _t
(screen)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 7995 _m
(COERCE)_S 61 _t
(CL)_S 1500 7779 _m
(COLOR)_S 61 _t
(\(graphics)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 7563 _m
(COMPLEX)_S 61 _t
(CL)_S 1500 7347 _m
(COMPLEXP)_S 61 _t
(CL)_S 1500 7131 _m
(CONCA)_S -20 _t
(TENA)_S -20 _t
(TE)_S 61 _t
(CL)_S 1500 6915 _m
(CONJUGA)_S -20 _t
(TE)_S 61 _t
(CL)_S 1500 6699 _m
(CONST)_S -15 _t
(ANTP)_S 61 _t
(CL)_S 1500 6483 _m
(COPY)_S -20 _t
(-ALIST)_S 61 _t
(CL*)_S 1500 6267 _m
(COPY)_S -20 _t
(-LIST)_S 61 _t
(CL*)_S 1500 6051 _m
(COPY)_S -20 _t
(-TREE)_S 61 _t
(CL*)_S 1500 5835 _m
(COSH)_S 61 _t
(CL*)_S 1500 5619 _m
(COUNT)_S -17 _t
(-IF)_S 61 _t
(CL)_S 61 _t
(except)_S 61 _t
(no)_S 61 _t
(:from-end)_S 1500 5403 _m
(DECF)_S 61 _t
(CL*)_S 1500 5187 _m
(DEFCLASS)_S 61 _t
(*)_S 61 _t
(\(de\256ne)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(class\))_S 1500 4971 _m
(DEFINST)_S 61 _t
(*)_S 61 _t
(\(de\256ne)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(instance\))_S 1500 4755 _m
(DEFMETHOD)_S 61 _t
(*)_S 61 _t
(\(de\256ne)_S 61 _t
(a)_S 61 _t
(new)_S 61 _t
(method\))_S 1500 4539 _m
(DEFSETF)_S 61 _t
(CL*)_S 1500 4323 _m
(DELETE-FILE)_S 61 _t
(CL)_S 1500 4107 _m
(DENOMINA)_S -20 _t
(T)_S -3 _t
(OR)_S 61 _t
(CL)_S 1500 3891 _m
(DRA)_S -14 _t
(W)_S 61 _t
(\(graphics)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 3675 _m
(DRA)_S -14 _t
(WREL)_S 61 _t
(\(graphics)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 3459 _m
(EL)_S -17 _t
(T)_S 61 _t
(CL)_S 1500 3243 _m
(EQUALP)_S 61 _t
(CL*)_S 1500 3027 _m
(EVER)_S -10 _t
(Y)_S 61 _t
(CL)_S 1500 2811 _m
(FILE-LENGTH)_S 61 _t
(CL)_S 1500 2595 _m
(FILE-POSITION)_S 61 _t
(CL)_S 1500 2379 _m
(FILL)_S 61 _t
(CL*)_S 1500 2163 _m
(FIND-IF)_S 61 _t
(CL)_S 61 _t
(except)_S 61 _t
(no)_S 61 _t
(:from-end)_S 1500 1947 _m
(FLOOR)_S 61 _t
(CL)_S 1500 1731 _m
(FRESH-LINE)_S 61 _t
(CL)_S 1500 1515 _m
(FUNCTIONP)_S 61 _t
(CL*)_S 1500 1299 _m
(GENERIC)_S 61 _t
(\(implementation)_S 61 _t
(debugging)_S 61 _t
(function\))_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4097 11867 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 8699 11867 _m
(Page)_S 61 _t
(89)_S 1500 11235 _m
(GET)_S -17 _t
(-INTERNAL-REAL-TIME)_S 61 _t
(CL)_S 1500 11019 _m
(GET)_S -17 _t
(-INTERNAL-RUN-TIME)_S 61 _t
(CL)_S 1500 10803 _m
(GETHASH)_S 61 _t
(CL)_S 1500 10587 _m
(GOT)_S -3 _t
(O-XY)_S 61 _t
(\(position)_S 61 _t
(cursor)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 10371 _m
(HASH-T)_S -15 _t
(ABLE-COUNT)_S 61 _t
(CL)_S 1500 10155 _m
(IDENTITY)_S 61 _t
(CL*)_S 1500 9939 _m
(IMAGP)_S -17 _t
(AR)_S -11 _t
(T)_S 61 _t
(CL)_S 1500 9723 _m
(INCF)_S 61 _t
(CL*)_S 1500 9507 _m
(INPUT)_S -17 _t
(-STREAM-P)_S 61 _t
(CL)_S 1500 9291 _m
(INTERSECTION)_S 61 _t
(CL)_S 1500 9075 _m
(LCM)_S 61 _t
(CL)_S 1500 8859 _m
(LIST*)_S 61 _t
(CL)_S 1500 8643 _m
(LOG)_S 61 _t
(CL)_S 1500 8427 _m
(LOGTEST)_S 61 _t
(CL*)_S 1500 8211 _m
(MAKE-HASK-T)_S -15 _t
(ABLE)_S 61 _t
(CL)_S 1500 7995 _m
(MAKE-RANDOM-ST)_S -15 _t
(A)_S -20 _t
(TE)_S 61 _t
(CL)_S 1500 7779 _m
(MAP)_S 61 _t
(CL)_S 1500 7563 _m
(MAPHASH)_S 61 _t
(CL)_S 1500 7347 _m
(MODE)_S 61 _t
(\(graphics)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 7131 _m
(MOVE)_S 61 _t
(\(graphics)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 6915 _m
(MOVEREL)_S 61 _t
(\(graphics)_S 61 _t
(--)_S 61 _t
(MS/DOS)_S 61 _t
(only\))_S 1500 6699 _m
(NINTERSECTION)_S 61 _t
(CL*)_S 1500 6483 _m
(NOT)_S -15 _t
(ANY)_S 61 _t
(CL)_S 1500 6267 _m
(NOTEVER)_S -10 _t
(Y)_S 61 _t
(CL)_S 1500 6051 _m
(NREVERSE)_S 61 _t
(CL)_S 1500 5835 _m
(NSET)_S -17 _t
(-DIFFERENCE)_S 61 _t
(CL*)_S 1500 5619 _m
(NSET)_S -17 _t
(-EXCLUSIVE-OR)_S 61 _t
(CL*)_S 1500 5403 _m
(NUMERA)_S -20 _t
(T)_S -3 _t
(OR)_S 61 _t
(CL)_S 1500 5187 _m
(NUNION)_S 61 _t
(CL*)_S 1500 4971 _m
(OPEN-STREAM-P)_S 61 _t
(CL)_S 1500 4755 _m
(OUTPUT)_S -17 _t
(-STREAM-P)_S 61 _t
(CL)_S 1500 4539 _m
(P)_S -17 _t
(AIRLIS)_S 61 _t
(CL*)_S 1500 4323 _m
(PHASE)_S 61 _t
(CL)_S 1500 4107 _m
(POP)_S 61 _t
(CL*)_S 1500 3891 _m
(POSITION-IF)_S 61 _t
(CL)_S 61 _t
(except)_S 61 _t
(no)_S 61 _t
(:from-end)_S 1500 3675 _m
(PUSH)_S 61 _t
(CL*)_S 1500 3459 _m
(PUSHNEW)_S 61 _t
(CL*)_S 1500 3243 _m
(RA)_S -20 _t
(TIONALP)_S 61 _t
(CL)_S 1500 3027 _m
(REALP)_S -17 _t
(AR)_S -11 _t
(T)_S 61 _t
(CL)_S 1500 2811 _m
(REDUCE)_S 61 _t
(CL)_S 61 _t
(except)_S 61 _t
(no)_S 61 _t
(:from-end)_S 1500 2595 _m
(REMHASH)_S 61 _t
(CL)_S 1500 2379 _m
(REMOVE-DUPLICA)_S -20 _t
(TES)_S 61 _t
(CL)_S 61 _t
(except)_S 61 _t
(no)_S 61 _t
(:from-end)_S 1500 2163 _m
(REPLACE)_S 61 _t
(CL*)_S 1500 1947 _m
(ROUND)_S 61 _t
(CL)_S 1500 1731 _m
(SEARCH)_S 61 _t
(CL)_S 61 _t
(except)_S 61 _t
(no)_S 61 _t
(:from-end)_S 1500 1515 _m
(SET)_S -17 _t
(-DIFFERENCE)_S 61 _t
(CL)_S 1500 1299 _m
(SET)_S -17 _t
(-EXCLUSIVE-OR)_S 61 _t
(CL*)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4097 11867 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 8699 11867 _m
(Page)_S 61 _t
(90)_S 1500 11235 _m
(SETF)_S 61 _t
(Placeform)_S 61 _t
(EL)_S -17 _t
(T)_S 122 _t
(CL)_S 1500 11019 _m
(SETF)_S 61 _t
(Placeform)_S 61 _t
(GETHASH)_S 122 _t
(CL)_S 1500 10803 _m
(SETF)_S 61 _t
(Placeform)_S 61 _t
(SEND*)_S 61 _t
(\(set)_S 61 _t
(instance)_S 61 _t
(variable\))_S 1500 10587 _m
(SIGNUM)_S 61 _t
(CL*)_S 1500 10371 _m
(SINH)_S 61 _t
(CL*)_S 1500 10155 _m
(SOME)_S 61 _t
(CL)_S 1500 9939 _m
(SUBSETP)_S 61 _t
(CL)_S 1500 9723 _m
(T)_S -15 _t
(ANH)_S 61 _t
(CL*)_S 1500 9507 _m
(TIME)_S 61 _t
(CL)_S 1500 9291 _m
(TRUENAME)_S 61 _t
(CL)_S 1500 9075 _m
(TYPEP)_S 61 _t
(CL)_S 1500 8859 _m
(UNINTERN)_S 61 _t
(CL*)_S 1500 8643 _m
(UNION)_S 61 _t
(CL)_S 1500 8427 _m
(WITH-INPUT)_S -17 _t
(-FROM-STRING)_S 61 _t
(CL*)_S 1500 8211 _m
(WITH-OPEN-FILE)_S 61 _t
(CL*)_S 1500 7995 _m
(WITH-OUTPUT)_S -17 _t
(-T)_S -3 _t
(O-STRING)_S 61 _t
(CL*)_S 1500 7779 _m
(Y)_S -20 _t
(-OR-N-P)_S 61 _t
(CL*)_S 4656 7131 _m
/Times-BoldR 550 _ff
(Changed)_S 61 _t
(functions)_S /Times-RomanR 550 _ff
1500 6699 _m
(&ALLOW)_S -10 _t
(-OTHER-KEYS)_S 61 _t
(CL)_S 61 _t
(\(now)_S 61 _t
(functions,)_S 61 _t
(is)_S 61 _t
(no)_S 61 _t
(longer)_S 61 _t
(ignored\))_S 1500 6483 _m
(*)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 61 _t
(\(with)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments,)_S 61 _t
(returns)_S 61 _t
(1\))_S 1500 6267 _m
(+)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 61 _t
(\(with)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments,)_S 61 _t
(returns)_S 61 _t
(0\))_S 1500 6051 _m
(-)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 5835 _m
(/)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 5619 _m
(1+)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 5403 _m
(1-)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 5187 _m
(ABS)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 4971 _m
(ACOS)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 4755 _m
(ALLOC)_S 61 _t
(\(new)_S 61 _t
(optional)_S 61 _t
(second)_S 61 _t
(ar)_S -3 _t
(gument\))_S 1500 4539 _m
(APPL)_S -18 _t
(Y)_S 61 _t
(CL)_S 61 _t
(\(allows)_S 61 _t
(multiple)_S 61 _t
(ar)_S -3 _t
(guments\))_S 1500 4323 _m
(AREF)_S 61 _t
(CL)_S 61 _t
(\(now)_S 61 _t
(works)_S 61 _t
(on)_S 61 _t
(strings\))_S 1500 4107 _m
(ASIN)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 3891 _m
(ASSOC)_S 61 _t
(CL)_S 61 _t
(\(added)_S 61 _t
(:key\))_S 1500 3675 _m
(A)_S -20 _t
(T)_S -15 _t
(AN)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 61 _t
(\(second)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(now)_S 61 _t
(allowed\))_S 1500 3459 _m
(CHAR-CODE)_S 61 _t
(CL)_S 61 _t
(\(parity)_S 61 _t
(bit)_S 61 _t
(is)_S 61 _t
(stripped\))_S 1500 3243 _m
(CLOSE)_S 61 _t
(CL)_S 61 _t
(\(will)_S 61 _t
(close)_S 61 _t
(unnamed)_S 61 _t
(stream)_S 61 _t
(strings\))_S 1500 3027 _m
(COS)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 2811 _m
(DEFCONST)_S -15 _t
(ANT)_S 61 _t
(CL#)_S 61 _t
(\(true)_S 61 _t
(constants\))_S 1500 2595 _m
(DEFP)_S -17 _t
(ARAMETER)_S 61 _t
(CL#)_S 61 _t
(\(true)_S 61 _t
(special)_S 61 _t
(variables\))_S 1500 2379 _m
(DEFV)_S -23 _t
(AR)_S 61 _t
(CL#)_S 61 _t
(\(true)_S 61 _t
(special)_S 61 _t
(variables\))_S 1500 2163 _m
(DELETE)_S 61 _t
(\(added)_S 61 _t
(keywords)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end.)_S 61 _t
(W)_S -15 _t
(orks)_S 61 _t
(on)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(strings\))_S 1500 1947 _m
(DELETE-IF)_S 61 _t
(\(added)_S 61 _t
(keywords)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end.)_S 61 _t
(W)_S -15 _t
(orks)_S 61 _t
(on)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(strings\))_S 61 _t
1500 1731 _m
(DELETE-IF-NOT)_S 61 _t
(\(added)_S 61 _t
(keywords)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end.)_S 61 _t
(W)_S -15 _t
(orks)_S 61 _t
(on)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(strings\))_S 61 _t
1500 1515 _m
(EXP)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 1299 _m
(EXPT)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4097 11867 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 8699 11867 _m
(Page)_S 61 _t
(91)_S 1500 11235 _m
(FORMA)_S -20 _t
(T)_S 61 _t
(\(added)_S 61 _t
(directives)_S 61 _t
(~D)_S 61 _t
(~E)_S 61 _t
(~F)_S 61 _t
(~G)_S 61 _t
(~&)_S 61 _t
(~T)_S 61 _t
(~\\N)_S 61 _t
(and)_S 61 _t
(lowercase)_S 61 _t
(directives\))_S 61 _t
1500 11019 _m
(HASH)_S 61 _t
(\(hashes)_S 61 _t
(everything,)_S 61 _t
(not)_S 61 _t
(just)_S 61 _t
(symbols)_S 61 _t
(or)_S 61 _t
(strings\))_S 1500 10803 _m
(LOAD)_S 61 _t
(CL)_S 61 _t
(\(uses)_S 61 _t
(path)_S 61 _t
(to)_S 61 _t
(\256nd)_S 61 _t
(\256le,)_S 61 _t
(allows)_S 61 _t
(\256le)_S 61 _t
(stream)_S 61 _t
(for)_S 61 _t
(name)_S 61 _t
(ar)_S -3 _t
(gument\))_S 61 _t
1500 10587 _m
(LOGAND)_S 61 _t
(CL)_S 61 _t
(\(with)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments,)_S 61 _t
(returns)_S 61 _t
(-1\))_S 1500 10371 _m
(LOGIOR)_S 61 _t
(CL)_S 61 _t
(\(with)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments,)_S 61 _t
(returns)_S 61 _t
(0\))_S 1500 10155 _m
(LOGXOR)_S 61 _t
(CL)_S 61 _t
(\(with)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(returns)_S 61 _t
(0\))_S 1500 9939 _m
(MAKE-STRING-INPUT)_S -17 _t
(-STREAM)_S 61 _t
(CL)_S 61 _t
(\(:end)_S 61 _t
(NIL)_S 61 _t
(means)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string\))_S 1500 9723 _m
(MAKUNBOUND)_S 61 _t
(#)_S 1500 9507 _m
(MAPCAN)_S 61 _t
(#)_S 1500 9291 _m
(MAPCON)_S 61 _t
(#)_S 1500 9075 _m
(MEMBER)_S 61 _t
(CL)_S 61 _t
(\(added)_S 61 _t
(:key\))_S 1500 8859 _m
(NSTRING-DOWNCASE)_S 61 _t
(CL)_S 61 _t
(\(string)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(symbol,)_S 61 _t
(:end)_S 61 _t
(NIL)_S 61 _t
(means)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string\))_S 1500 8643 _m
(NSTRING-UPCASE)_S 61 _t
(CL)_S 61 _t
(\(string)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(symbol,)_S 61 _t
(:end)_S 61 _t
(NIL)_S 61 _t
(means)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string\))_S 1500 8427 _m
(OPEN)_S 61 _t
(CL)_S 61 _t
(\(many)_S 61 _t
(additional)_S 61 _t
(options,)_S 61 _t
(as)_S 61 _t
(in)_S 61 _t
(Common)_S 61 _t
(Lisp\))_S 1500 8211 _m
(PEEK)_S 61 _t
(\(\256xnum)_S 61 _t
(sized)_S 61 _t
(location)_S 61 _t
(is)_S 61 _t
(fetched\))_S 1500 7995 _m
(PEEK-CHAR)_S 61 _t
(CL)_S 61 _t
(\(input)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 61 _t
1500 7779 _m
(POKE)_S 61 _t
(\(\256xnum)_S 61 _t
(sized)_S 61 _t
(location)_S 61 _t
(is)_S 61 _t
(stored\))_S 1500 7563 _m
(PPRINT)_S 61 _t
(\(output)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 1500 7347 _m
(PRIN1)_S 61 _t
(CL)_S 61 _t
(\(output)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 1500 7131 _m
(PRINC)_S 61 _t
(CL)_S 61 _t
(\(output)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 1500 6915 _m
(PRINT)_S 61 _t
(\(output)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 1500 6699 _m
(RANDOM)_S 61 _t
(CL)_S 61 _t
(\(works)_S 61 _t
(with)_S 61 _t
(random-states\))_S 1500 6483 _m
(READ)_S 61 _t
(\(input)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 1500 6267 _m
(READ-BYTE)_S 61 _t
(CL)_S 61 _t
(\(input)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 61 _t
1500 6051 _m
(READ-CHAR)_S 61 _t
(CL)_S 61 _t
(\(input)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 61 _t
1500 5835 _m
(READ-LINE)_S 61 _t
(CL)_S 61 _t
(\(input)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-input*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 61 _t
1500 5619 _m
(REM)_S 61 _t
(CR)_S 61 _t
(CL)_S 61 _t
(\(only)_S 61 _t
(two)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(now)_S 61 _t
(allowed,)_S 61 _t
(may)_S 61 _t
(be)_S 61 _t
(\257oating)_S 61 _t
(point\))_S 1500 5403 _m
(REMOVE)_S 61 _t
(\(added)_S 61 _t
(keywords)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end.)_S 61 _t
(W)_S -15 _t
(orks)_S 61 _t
(on)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(strings\))_S 1500 5187 _m
(REMOVE-IF)_S 61 _t
(\(added)_S 61 _t
(keywords)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end.)_S 61 _t
(W)_S -15 _t
(orks)_S 61 _t
(on)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(strings\))_S 61 _t
1500 4971 _m
(REMOVE-IF-NOT)_S 61 _t
(\(added)_S 61 _t
(keywords)_S 61 _t
(:key)_S 61 _t
(:start)_S 61 _t
(:end.)_S 61 _t
(W)_S -15 _t
(orks)_S 61 _t
(on)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(strings\))_S 61 _t
1500 4755 _m
(REST)_S -3 _t
(ORE)_S 61 _t
(\(uses)_S 61 _t
(path)_S 61 _t
(to)_S 61 _t
(\256nd)_S 61 _t
(\256le,)_S 61 _t
(restores)_S 61 _t
(\256le)_S 61 _t
(streams,)_S 61 _t
(\256ne)_S 61 _t
(name)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(may)_S 61 _t
(be)_S 61 _t
(\256le)_S 61 _t
(stream\))_S 1500 4539 _m
(REVERSE)_S 61 _t
(CL)_S 61 _t
(\(works)_S 61 _t
(on)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(strings\))_S 1500 4323 _m
(SA)_S -23 _t
(VE)_S 61 _t
(\(\256le)_S 61 _t
(name)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(may)_S 61 _t
(be)_S 61 _t
(\256le)_S 61 _t
(stream\))_S 1500 4107 _m
(SIN)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 3891 _m
(SOR)_S -11 _t
(T)_S 61 _t
(\(added)_S 61 _t
(:key\))_S 1500 3675 _m
(SQR)_S -11 _t
(T)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S 1500 3459 _m
(STRCA)_S -20 _t
(T)_S 61 _t
(*)_S 61 _t
(\(now)_S 61 _t
(a)_S 61 _t
(macro,)_S 61 _t
(use)_S 61 _t
(of)_S 61 _t
(CONCA)_S -20 _t
(TENA)_S -20 _t
(TE)_S 61 _t
(is)_S 61 _t
(recommended\))_S 1500 3243 _m
(STRING-comparisonFunctions)_S 61 _t
(CL)_S 61 _t
(\(string)_S 61 _t
(ar)_S -3 _t
(guments)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(symbols\))_S 1500 3027 _m
(STRING-DOWNCASE)_S 61 _t
(CL)_S 61 _t
(\(string)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(symbol,)_S 61 _t
(:end)_S 61 _t
(NIL)_S 61 _t
(means)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string\))_S 1500 2811 _m
(STRING-LEFT)_S -17 _t
(-TRIM)_S 61 _t
(CL)_S 61 _t
(\(string)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(symbol\))_S 1500 2595 _m
(STRING-RIGHT)_S -17 _t
(-TRIM)_S 61 _t
(CL)_S 61 _t
(\(string)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(symbol\))_S 1500 2379 _m
(STRING-TRIM)_S 61 _t
(CL)_S 61 _t
(\(string)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(symbol\))_S 1500 2163 _m
(STRING-UPCASE)_S 61 _t
(CL)_S 61 _t
(\(string)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(symbol,)_S 61 _t
(:end)_S 61 _t
(NIL)_S 61 _t
(means)_S 61 _t
(end)_S 61 _t
(of)_S 61 _t
(string\))_S 61 _t
1500 1947 _m
(SUBLIS)_S 61 _t
(CL)_S 61 _t
(\(modi\256ed)_S 61 _t
(to)_S 61 _t
(do)_S 61 _t
(minimum)_S 61 _t
(copying\))_S 1500 1731 _m
(SUBSEQ)_S 61 _t
(CL)_S 61 _t
(\(works)_S 61 _t
(on)_S 61 _t
(arrays)_S 61 _t
(and)_S 61 _t
(lists\))_S 1500 1515 _m
(SUBST)_S 61 _t
(CL)_S 61 _t
(\(modi\256ed)_S 61 _t
(to)_S 61 _t
(do)_S 61 _t
(minimum)_S 61 _t
(copying\))_S 1500 1299 _m
(T)_S -15 _t
(AN)_S 61 _t
(CL)_S 61 _t
(CR)_S 61 _t
(CX)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4097 11867 _m
(BUG)_S 61 _t
(FIXES)_S 61 _t
(AND)_S 61 _t
(EXTENSIONS)_S 8699 11867 _m
(Page)_S 61 _t
(92)_S 1500 11235 _m
(TERPRI)_S 61 _t
(CL)_S 61 _t
(\(output)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 61 _t
1500 11019 _m
(TRUNCA)_S -20 _t
(TE)_S 61 _t
(CR)_S 61 _t
(CL)_S 61 _t
(\(allows)_S 61 _t
(denominator)_S 61 _t
(ar)_S -3 _t
(gument\))_S 1500 10803 _m
(TYPE-OF)_S 61 _t
(\(returns)_S 61 _t
(HASH-T)_S -15 _t
(ABLE)_S 61 _t
(for)_S 61 _t
(hashtables,)_S 61 _t
(COMPLEX)_S 61 _t
(for)_S 61 _t
(complex,)_S 61 _t
(and)_S 61 _t
(LIST)_S 61 _t
(for)_S 61 _t
(NIL\))_S 1500 10587 _m
(UNTRACE)_S 61 _t
(CL)_S 61 _t
(\(with)_S 61 _t
(no)_S 61 _t
(ar)_S -3 _t
(guments,)_S 61 _t
(untraces)_S 61 _t
(all)_S 61 _t
(functions\))_S 1500 10371 _m
(WRITE-BYTE)_S 61 _t
(CL)_S 61 _t
(\(output)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 61 _t
1500 10155 _m
(WRITE-CHAR)_S 61 _t
(CL)_S 61 _t
(\(output)_S 61 _t
(stream)_S 61 _t
(NIL)_S 61 _t
(is)_S 61 _t
(*standard-output*,)_S 61 _t
(T)_S 61 _t
(is)_S 61 _t
(*terminal-io*\))_S 4183 9507 _m
/Times-BoldR 550 _ff
(New)_S 61 _t
(messages)_S 61 _t
(for)_S 61 _t
(class)_S 61 _t
(Object)_S /Times-RomanR 550 _ff
1500 9075 _m
(:prin1)_S 61 _t
(<stream>)_S 1500 8859 _m
(:superclass)_S 61 _t
(*)_S 1500 8643 _m
(:ismemberof)_S 61 _t
(<cls>)_S 61 _t
(*)_S 1500 8427 _m
(:iskindof)_S 61 _t
(<cls>)_S 61 _t
(*)_S 1500 8211 _m
(:respondsto)_S 61 _t
(<selector>)_S 61 _t
(*)_S 61 _t
1500 7995 _m
(:storeon)_S 61 _t
(\(returns)_S 61 _t
(form)_S 61 _t
(that)_S 61 _t
(will)_S 61 _t
(create)_S 61 _t
(a)_S 61 _t
(copy)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(object\))_S 61 _t
(*)_S 4239 7563 _m
/Times-BoldR 550 _ff
(New)_S 61 _t
(messages)_S 61 _t
(for)_S 61 _t
(class)_S 61 _t
(Class)_S /Times-RomanR 550 _ff
1500 7131 _m
(:superclass)_S 61 _t
(*)_S 1500 6915 _m
(:messages)_S 61 _t
(*)_S 1500 6699 _m
(:storeon)_S 61 _t
(\(returns)_S 61 _t
(form)_S 61 _t
(that)_S 61 _t
(will)_S 61 _t
(recreate)_S 61 _t
(class)_S 61 _t
(and)_S 61 _t
(methods\))_S 61 _t
(*)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4916 11867 _m
(EXAMPLES)_S 8699 11867 _m
(Page)_S 61 _t
(93)_S 1500 10986 _m
/HelveticaR 660 _ff
(EXAMPLES:)_S 73 _t
(FILE)_S 73 _t
(I/O)_S 73 _t
(FUNCTIONS)_S /Times-RomanR 550 _ff
1500 10334 _m
(Input)_S 61 _t
(from)_S 61 _t
(a)_S 61 _t
(File)_S 1500 9902 _m
(T)_S -13 _t
(o)_S 50 _t
(open)_S 50 _t
(a)_S 51 _t
(\256le)_S 50 _t
(for)_S 50 _t
(input,)_S 50 _t
(use)_S 50 _t
(the)_S 50 _t
(OPEN)_S 51 _t
(function)_S 50 _t
(with)_S 50 _t
(the)_S 50 _t
(keyword)_S 50 _t
(ar)_S -3 _t
(gument)_S 50 _t
(:DIRECTION)_S 51 _t
(set)_S 50 _t
(to)_S 50 _t
(:INPUT)_S -13 _t
(.)_S 1500 9686 _m
(T)_S -13 _t
(o)_S 86 _t
(open)_S 87 _t
(a)_S 87 _t
(\256le)_S 86 _t
(for)_S 87 _t
(output,)_S 86 _t
(use)_S 87 _t
(the)_S 86 _t
(OPEN)_S 87 _t
(function)_S 87 _t
(with)_S 86 _t
(the)_S 87 _t
(keyword)_S 86 _t
(ar)_S -3 _t
(gument)_S 87 _t
(:DIRECTION)_S 86 _t
(set)_S 87 _t
(to)_S 1500 9470 _m
(:OUTPUT)_S -13 _t
(.)_S 76 _t
(The)_S 77 _t
(OPEN)_S 77 _t
(function)_S 76 _t
(takes)_S 77 _t
(a)_S 77 _t
(single)_S 77 _t
(required)_S 76 _t
(ar)_S -3 _t
(gument)_S 77 _t
(which)_S 77 _t
(is)_S 76 _t
(the)_S 77 _t
(name)_S 77 _t
(of)_S 76 _t
(the)_S 77 _t
(\256le)_S 77 _t
(to)_S 77 _t
(be)_S 1500 9254 _m
(opened.)_S 61 _t
(This)_S 61 _t
(name)_S 61 _t
(can)_S 62 _t
(be)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(form)_S 61 _t
(of)_S 61 _t
(a)_S 61 _t
(string)_S 61 _t
(or)_S 62 _t
(a)_S 61 _t
(symbol.)_S 61 _t
(The)_S 61 _t
(OPEN)_S 61 _t
(function)_S 61 _t
(returns)_S 61 _t
(an)_S 61 _t
(object)_S 61 _t
(of)_S 1500 9038 _m
(type)_S 46 _t
(FILE-STREAM)_S 46 _t
(if)_S 46 _t
(it)_S 46 _t
(succeeds)_S 46 _t
(in)_S 46 _t
(opening)_S 46 _t
(the)_S 46 _t
(speci\256ed)_S 47 _t
(\256le.)_S 46 _t
(It)_S 46 _t
(returns)_S 46 _t
(the)_S 46 _t
(value)_S 46 _t
(NIL)_S 46 _t
(if)_S 46 _t
(it)_S 46 _t
(fails.)_S 46 _t
(In)_S 46 _t
(order)_S 1500 8822 _m
(to)_S 65 _t
(manipulate)_S 66 _t
(the)_S 65 _t
(\256le,)_S 66 _t
(it)_S 65 _t
(is)_S 66 _t
(necessary)_S 65 _t
(to)_S 66 _t
(save)_S 65 _t
(the)_S 66 _t
(value)_S 66 _t
(returned)_S 65 _t
(by)_S 66 _t
(the)_S 65 _t
(OPEN)_S 66 _t
(function.)_S 66 _t
(This)_S 65 _t
(is)_S 66 _t
(usually)_S 1500 8606 _m
(done)_S 53 _t
(by)_S 53 _t
(assigning)_S 54 _t
(it)_S 53 _t
(to)_S 53 _t
(a)_S 53 _t
(variable)_S 53 _t
(with)_S 53 _t
(the)_S 54 _t
(SETQ)_S 53 _t
(special)_S 53 _t
(form)_S 53 _t
(or)_S 53 _t
(by)_S 53 _t
(binding)_S 53 _t
(it)_S 53 _t
(using)_S 54 _t
(LET)_S 53 _t
(or)_S 53 _t
(LET*.)_S 53 _t
(Here)_S 1500 8390 _m
(is)_S 61 _t
(an)_S 61 _t
(example:)_S 1500 7958 _m
61 _t
61 _t
61 _t
61 _t
(\(setq)_S 61 _t
(fp)_S 61 _t
(\(open)_S 61 _t
("init.lsp")_S 61 _t
(:direction)_S 61 _t
(:input\)\))_S 1500 7526 _m
(Evaluating)_S 83 _t
(this)_S 83 _t
(expression)_S 82 _t
(will)_S 83 _t
(result)_S 83 _t
(in)_S 83 _t
(the)_S 83 _t
(\256le)_S 83 _t
("init.lsp")_S 83 _t
(being)_S 83 _t
(opened.)_S 83 _t
(The)_S 83 _t
(\256le)_S 82 _t
(object)_S 83 _t
(that)_S 83 _t
(will)_S 83 _t
(be)_S 1500 7310 _m
(returned)_S 61 _t
(by)_S 61 _t
(the)_S 61 _t
(OPEN)_S 61 _t
(function)_S 61 _t
(will)_S 61 _t
(be)_S 61 _t
(assigned)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(variable)_S 61 _t
("fp".)_S 1500 6878 _m
(It)_S 63 _t
(is)_S 62 _t
(now)_S 63 _t
(possible)_S 63 _t
(to)_S 62 _t
(use)_S 63 _t
(the)_S 63 _t
(\256le)_S 62 _t
(for)_S 63 _t
(input.)_S 62 _t
(T)_S -13 _t
(o)_S 63 _t
(read)_S 63 _t
(an)_S 62 _t
(expression)_S 63 _t
(from)_S 63 _t
(the)_S 62 _t
(\256le,)_S 63 _t
(just)_S 63 _t
(supply)_S 62 _t
(the)_S 63 _t
(value)_S 63 _t
(of)_S 1500 6662 _m
(the)_S 61 _t
("fp")_S 61 _t
(variable)_S 61 _t
(as)_S 61 _t
(the)_S 61 _t
(optional)_S 61 _t
("stream")_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(to)_S 61 _t
(READ.)_S 1500 6230 _m
61 _t
61 _t
61 _t
61 _t
(\(read)_S 61 _t
(fp\))_S 1500 5798 _m
(Evaluating)_S 46 _t
(this)_S 46 _t
(expression)_S 47 _t
(will)_S 46 _t
(result)_S 46 _t
(in)_S 46 _t
(reading)_S 46 _t
(the)_S 47 _t
(\256rst)_S 46 _t
(expression)_S 46 _t
(from)_S 46 _t
(the)_S 47 _t
(\256le)_S 46 _t
("init.lsp".)_S 46 _t
(The)_S 47 _t
(expression)_S 1500 5582 _m
(will)_S 67 _t
(be)_S 67 _t
(returned)_S 67 _t
(as)_S 67 _t
(the)_S 67 _t
(result)_S 67 _t
(of)_S 67 _t
(the)_S 67 _t
(READ)_S 67 _t
(function.)_S 67 _t
(More)_S 67 _t
(expressions)_S 67 _t
(can)_S 67 _t
(be)_S 67 _t
(read)_S 67 _t
(from)_S 67 _t
(the)_S 67 _t
(\256le)_S 67 _t
(using)_S 1500 5366 _m
(further)_S 51 _t
(calls)_S 52 _t
(to)_S 51 _t
(the)_S 52 _t
(READ)_S 51 _t
(function.)_S 52 _t
(When)_S 51 _t
(there)_S 52 _t
(are)_S 51 _t
(no)_S 52 _t
(more)_S 51 _t
(expressions)_S 52 _t
(to)_S 51 _t
(read,)_S 51 _t
(the)_S 52 _t
(READ)_S 51 _t
(function)_S 52 _t
(will)_S 1500 5150 _m
(return)_S 61 _t
(NIL)_S 61 _t
(\(or)_S 61 _t
(whatever)_S 61 _t
(value)_S 61 _t
(was)_S 61 _t
(supplied)_S 61 _t
(as)_S 61 _t
(the)_S 61 _t
(second)_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(to)_S 61 _t
(READ\).)_S 1500 4718 _m
(Once)_S 90 _t
(you)_S 89 _t
(are)_S 89 _t
(done)_S 89 _t
(reading)_S 89 _t
(from)_S 90 _t
(the)_S 89 _t
(\256le,)_S 89 _t
(you)_S 89 _t
(should)_S 90 _t
(close)_S 89 _t
(it.)_S 89 _t
(T)_S -13 _t
(o)_S 89 _t
(close)_S 89 _t
(the)_S 90 _t
(\256le,)_S 89 _t
(use)_S 89 _t
(the)_S 89 _t
(following)_S 1500 4502 _m
(expression:)_S 1500 4070 _m
61 _t
61 _t
61 _t
61 _t
(\(close)_S 61 _t
(fp\))_S 1500 3638 _m
(Evaluating)_S 61 _t
(this)_S 61 _t
(expression)_S 61 _t
(will)_S 61 _t
(cause)_S 61 _t
(the)_S 61 _t
(\256le)_S 61 _t
(to)_S 61 _t
(be)_S 61 _t
(closed.)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 4916 11867 _m
(EXAMPLES)_S 8699 11867 _m
(Page)_S 61 _t
(94)_S 1500 11019 _m
(Output)_S 61 _t
(to)_S 61 _t
(a)_S 61 _t
(File)_S 1500 10587 _m
(W)_S -7 _t
(riting)_S 60 _t
(to)_S 61 _t
(a)_S 60 _t
(\256le)_S 60 _t
(is)_S 61 _t
(pretty)_S 60 _t
(much)_S 60 _t
(the)_S 60 _t
(same)_S 60 _t
(as)_S 61 _t
(reading)_S 60 _t
(from)_S 60 _t
(one.)_S 61 _t
(Y)_S -18 _t
(ou)_S 60 _t
(need)_S 60 _t
(to)_S 60 _t
(open)_S 61 _t
(the)_S 60 _t
(\256le)_S 60 _t
(\256rst.)_S 61 _t
(This)_S 60 _t
(time)_S 1500 10371 _m
(you)_S 61 _t
(should)_S 61 _t
(use)_S 61 _t
(the)_S 61 _t
(OPEN)_S 61 _t
(function)_S 61 _t
(to)_S 61 _t
(indicate)_S 61 _t
(that)_S 61 _t
(you)_S 61 _t
(will)_S 61 _t
(do)_S 61 _t
(output)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(\256le.)_S 61 _t
(For)_S 61 _t
(example:)_S 1500 9939 _m
61 _t
61 _t
61 _t
61 _t
(\(setq)_S 61 _t
(fp)_S 61 _t
(\(open)_S 61 _t
("test.dat")_S 61 _t
(:direction)_S 61 _t
(:output)_S 61 _t
(:if-exists)_S 61 _t
(:supersede\)\))_S 1500 9507 _m
(Evaluating)_S 73 _t
(this)_S 74 _t
(expression)_S 74 _t
(will)_S 73 _t
(open)_S 74 _t
(the)_S 73 _t
(\256le)_S 74 _t
("test.dat")_S 74 _t
(for)_S 73 _t
(output.)_S 74 _t
(If)_S 74 _t
(the)_S 73 _t
(\256le)_S 74 _t
(already)_S 73 _t
(exists,)_S 74 _t
(its)_S 74 _t
(current)_S 1500 9291 _m
(contents)_S 65 _t
(will)_S 65 _t
(be)_S 64 _t
(discarded.)_S 65 _t
(If)_S 65 _t
(it)_S 64 _t
(doesn't)_S 65 _t
(already)_S 65 _t
(exist,)_S 64 _t
(it)_S 65 _t
(will)_S 65 _t
(be)_S 65 _t
(created.)_S 64 _t
(In)_S 65 _t
(any)_S 65 _t
(case,)_S 65 _t
(a)_S 64 _t
(FILE-STREAM)_S 1500 9075 _m
(object)_S 61 _t
(will)_S 61 _t
(be)_S 61 _t
(returned)_S 61 _t
(by)_S 61 _t
(the)_S 61 _t
(OPEN)_S 61 _t
(function.)_S 61 _t
(This)_S 61 _t
(\256le)_S 61 _t
(object)_S 61 _t
(will)_S 61 _t
(be)_S 61 _t
(assigned)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
("fp")_S 61 _t
(variable.)_S 1500 8643 _m
(It)_S 54 _t
(is)_S 53 _t
(now)_S 54 _t
(possible)_S 54 _t
(to)_S 53 _t
(write)_S 54 _t
(to)_S 54 _t
(this)_S 54 _t
(\256le)_S 53 _t
(by)_S 54 _t
(supplying)_S 54 _t
(the)_S 54 _t
(value)_S 53 _t
(of)_S 54 _t
(the)_S 54 _t
("fp")_S 53 _t
(variable)_S 54 _t
(as)_S 53 _t
(the)_S 54 _t
(optional)_S 54 _t
("stream")_S 1500 8427 _m
(parameter)_S 61 _t
(in)_S 61 _t
(the)_S 61 _t
(PRINT)_S 61 _t
(function.)_S 1500 7995 _m
61 _t
61 _t
61 _t
61 _t
(\(print)_S 61 _t
("Hello)_S 61 _t
(there")_S 61 _t
(fp\))_S 1500 7563 _m
(Evaluating)_S 57 _t
(this)_S 57 _t
(expression)_S 56 _t
(will)_S 57 _t
(result)_S 57 _t
(in)_S 57 _t
(the)_S 57 _t
(string)_S 57 _t
("Hello)_S 57 _t
(there")_S 57 _t
(being)_S 57 _t
(written)_S 57 _t
(to)_S 57 _t
(the)_S 57 _t
(\256le)_S 57 _t
("test.dat".)_S 57 _t
(More)_S 1500 7347 _m
(data)_S 61 _t
(can)_S 61 _t
(be)_S 61 _t
(written)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(\256le)_S 61 _t
(using)_S 61 _t
(the)_S 61 _t
(same)_S 61 _t
(technique.)_S 1500 6915 _m
(Once)_S 64 _t
(you)_S 64 _t
(are)_S 64 _t
(done)_S 65 _t
(writing)_S 64 _t
(to)_S 64 _t
(the)_S 64 _t
(\256le,)_S 64 _t
(you)_S 64 _t
(should)_S 64 _t
(close)_S 65 _t
(it.)_S 64 _t
(Closing)_S 64 _t
(an)_S 64 _t
(output)_S 64 _t
(\256le)_S 64 _t
(is)_S 64 _t
(just)_S 64 _t
(like)_S 64 _t
(closing)_S 64 _t
(an)_S 1500 6699 _m
(input)_S 61 _t
(\256le.)_S 1500 6267 _m
61 _t
61 _t
61 _t
61 _t
(\(close)_S 61 _t
(fp\))_S 1500 5835 _m
(Evaluating)_S 61 _t
(this)_S 61 _t
(expression)_S 61 _t
(will)_S 61 _t
(close)_S 61 _t
(the)_S 61 _t
(output)_S 61 _t
(\256le)_S 61 _t
(and)_S 61 _t
(make)_S 61 _t
(it)_S 61 _t
(permanent.)_S 1500 4971 _m
(A)_S 61 _t
(Slightly)_S 61 _t
(More)_S 61 _t
(Complicated)_S 61 _t
(File)_S 61 _t
(Example)_S 1500 4539 _m
(This)_S 99 _t
(example)_S 98 _t
(shows)_S 98 _t
(how)_S 99 _t
(to)_S 98 _t
(open)_S 99 _t
(a)_S 98 _t
(\256le,)_S 98 _t
(read)_S 99 _t
(each)_S 98 _t
(Lisp)_S 99 _t
(expression)_S 98 _t
(from)_S 98 _t
(the)_S 99 _t
(\256le)_S 98 _t
(and)_S 99 _t
(print)_S 98 _t
(it.)_S 98 _t
(It)_S 1500 4323 _m
(demonstrates)_S 61 _t
(the)_S 61 _t
(use)_S 61 _t
(of)_S 61 _t
(\256les)_S 61 _t
(and)_S 61 _t
(the)_S 61 _t
(use)_S 61 _t
(of)_S 61 _t
(the)_S 61 _t
(optional)_S 61 _t
("stream")_S 61 _t
(ar)_S -3 _t
(gument)_S 61 _t
(to)_S 61 _t
(the)_S 61 _t
(READ)_S 1500 4107 _m
(function.)_S 1500 3675 _m
61 _t
61 _t
61 _t
61 _t
(\(do*)_S 61 _t
(\(\(fp)_S 61 _t
(\(open)_S 61 _t
("test.dat")_S 61 _t
(:direction)_S 61 _t
(:input\)\))_S 1500 3459 _m
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
(\(ex)_S 61 _t
(\(read)_S 61 _t
(fp\))_S 61 _t
(\(read)_S 61 _t
(fp\)\)\))_S 1500 3243 _m
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
(\(\(null)_S 61 _t
(ex\))_S 61 _t
(\(close)_S 61 _t
(fp\))_S 61 _t
(nil\))_S 1500 3027 _m
61 _t
61 _t
61 _t
61 _t
61 _t
61 _t
(\(print)_S 61 _t
(ex\)\))_S 1500 2595 _m
(The)_S 61 _t
(\256le)_S 61 _t
(will)_S 61 _t
(be)_S 61 _t
(closed)_S 61 _t
(with)_S 61 _t
(the)_S 61 _t
(next)_S 61 _t
(garbage)_S 61 _t
(collection.)_S _ep
_bp /HelveticaR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
/Times-RomanR 550 _ff
(XLISP)_S 61 _t
(2.1d)_S 5115 11867 _m
(INDEX)_S 8699 11867 _m
(Page)_S 61 _t
(95)_S /HelveticaR 550 _ff
1500 11202 _m
/HelveticaR 660 _ff
(INDEX)_S /Times-RomanR 550 _ff
1500 10550 _m
(:answer)_S 122 _t
(18)_S 1500 10334 _m
(:append)_S 122 _t
(70)_S 1500 10118 _m
(:class)_S 122 _t
(17)_S 1500 9902 _m
(:conc-name)_S 122 _t
(51)_S 1500 9686 _m
(:constituent)_S 122 _t
(10)_S 1500 9470 _m
(:create)_S 122 _t
(70)_S 1500 9254 _m
(:direction)_S 122 _t
(70)_S 1500 9038 _m
(:downcase)_S 122 _t
(12)_S 1500 8822 _m
(:element-type)_S 122 _t
(70)_S 1500 8606 _m
(:end)_S 122 _t
(32-34,)_S 61 _t
(47,)_S 61 _t
(48,)_S 61 _t
(71)_S 1500 8390 _m
(:end1)_S 122 _t
(32,)_S 61 _t
(35,)_S 61 _t
(48)_S 1500 8174 _m
(:end2)_S 122 _t
(32,)_S 61 _t
(35,)_S 61 _t
(48)_S 1500 7958 _m
(:error)_S 122 _t
(70)_S 1500 7742 _m
(:if-does-not-exist)_S 122 _t
(70)_S 1500 7526 _m
(:if-exists)_S 122 _t
(70)_S 1500 7310 _m
(:include)_S 122 _t
(51)_S 1500 7094 _m
(:initial-value)_S 122 _t
(34)_S 1500 6878 _m
(:input)_S 122 _t
(70)_S 1500 6662 _m
(:invert)_S 122 _t
(12)_S 1500 6446 _m
(:io)_S 122 _t
(70)_S 1500 6230 _m
(:iskindof)_S 122 _t
(17)_S 1500 6014 _m
(:ismemberof)_S 122 _t
(17)_S 1500 5798 _m
(:isnew)_S 122 _t
(17,)_S 61 _t
(18)_S 1500 5582 _m
(:key)_S 122 _t
(25,)_S 61 _t
(32-34,)_S 61 _t
(37-40,)_S 61 _t
(57)_S 1500 5366 _m
(:mescape)_S 122 _t
(10)_S 1500 5150 _m
(:messages)_S 122 _t
(18)_S 1500 4934 _m
(:new)_S 122 _t
(18)_S 1500 4718 _m
(:new-version)_S 122 _t
(70)_S 1500 4502 _m
(:nmacro)_S 122 _t
(10)_S 1500 4286 _m
(:output)_S 122 _t
(70)_S 1500 4070 _m
(:overwrite)_S 122 _t
(70)_S 1500 3854 _m
(:preserve)_S 122 _t
(12)_S 1500 3638 _m
(:prin1)_S 122 _t
(17)_S 1500 3422 _m
(:print)_S 122 _t
(76)_S 1500 3206 _m
(:probe)_S 122 _t
(70)_S 1500 2990 _m
(:rename)_S 122 _t
(70)_S 1500 2774 _m
(:rename-and-delete)_S 122 _t
(70)_S 1500 2558 _m
(:respondsto)_S 122 _t
(17)_S 1500 2342 _m
(:sescape)_S 122 _t
(10)_S 1500 2126 _m
(:set-ivar)_S 122 _t
(53)_S 1500 1910 _m
(:set-pname)_S 122 _t
(53)_S 1500 1694 _m
(:show)_S 122 _t
(17)_S 1500 1478 _m
(:size)_S 122 _t
(29)_S 5700 10550 _m
(:start)_S 122 _t
(32-34,)_S 61 _t
(47,)_S 61 _t
(48,)_S 61 _t
(71)_S 5700 10334 _m
(:start1)_S 122 _t
(32,)_S 61 _t
(35,)_S 61 _t
(48)_S 5700 10118 _m
(:start2)_S 122 _t
(32,)_S 61 _t
(35,)_S 61 _t
(48)_S 5700 9902 _m
(:storeon)_S 122 _t
(17,)_S 61 _t
(18)_S 5700 9686 _m
(:superclass)_S 122 _t
(17,)_S 61 _t
(18)_S 5700 9470 _m
(:supersede)_S 122 _t
(70)_S 5700 9254 _m
(:test)_S 122 _t
(25,)_S 61 _t
(29,)_S 61 _t
(32-34,)_S 61 _t
(37-39,)_S 61 _t
(57)_S 5700 9038 _m
(:test-not)_S 122 _t
(25,)_S 61 _t
(32-34,)_S 61 _t
(37-39,)_S 61 _t
(57)_S 5700 8822 _m
(:tmacro)_S 122 _t
(10)_S 5700 8606 _m
(:upcase)_S 122 _t
(12)_S 5700 8390 _m
(:verbose)_S 122 _t
(76)_S 5700 8174 _m
(:white-space)_S 122 _t
(10)_S 5700 7958 _m
(+)_S 122 _t
(21,)_S 61 _t
(41)_S 5700 7742 _m
(++)_S 122 _t
(21)_S 5700 7526 _m
(+++)_S 122 _t
(21)_S 5700 7310 _m
(-)_S 122 _t
(21,)_S 61 _t
(41)_S 5700 7094 _m
(*)_S 122 _t
(21,)_S 61 _t
(42)_S 5700 6878 _m
(**)_S 122 _t
(21)_S 5700 6662 _m
(***)_S 122 _t
(21)_S 5700 6446 _m
(*applyhook*)_S 122 _t
(7,)_S 61 _t
(20)_S 5700 6230 _m
(*breakenable*)_S 122 _t
(3,)_S 61 _t
(20)_S 5700 6014 _m
(*debug-io*)_S 122 _t
(20)_S 5700 5798 _m
(*displace-macros*)_S 122 _t
(6,)_S 61 _t
(21)_S 5700 5582 _m
(*dos-input*)_S 122 _t
(2,)_S 61 _t
(21)_S 5700 5366 _m
(*error)_S -4 _t
(-output*)_S 122 _t
(20)_S 5700 5150 _m
(*evalhook*)_S 122 _t
(7,)_S 61 _t
(20)_S 5700 4934 _m
(*\257oat-format*)_S 122 _t
(20,)_S 61 _t
(65)_S 5700 4718 _m
(*gc-\257ag*)_S 122 _t
(20)_S 5700 4502 _m
(*gc-hook*)_S 122 _t
(7,)_S 61 _t
(20)_S 5700 4286 _m
(*integer)_S -4 _t
(-format*)_S 122 _t
(20,)_S 61 _t
(65)_S 5700 4070 _m
(*obarray*)_S 122 _t
(20)_S 5700 3854 _m
(*print-case*)_S 122 _t
(12,)_S 61 _t
(21,)_S 61 _t
(65)_S 5700 3638 _m
(*print-length*)_S 122 _t
(21,)_S 61 _t
(65)_S 5700 3422 _m
(*print-level*)_S 122 _t
(21,)_S 61 _t
(65)_S 5700 3206 _m
(*random-state*)_S 122 _t
(21)_S 5700 2990 _m
(*ratio-format*)_S 122 _t
(20,)_S 61 _t
(65)_S 5700 2774 _m
(*readtable-case*)_S 122 _t
(12,)_S 61 _t
(21,)_S 61 _t
(65)_S 5700 2558 _m
(*readtable*)_S 122 _t
(10,)_S 61 _t
(20)_S 5700 2342 _m
(*standard-input*)_S 122 _t
(20)_S 5700 2126 _m
(*standard-output*)_S 122 _t
(20)_S 5700 1910 _m
(*struct-slots*)_S 122 _t
(51)_S 5700 1694 _m
(*terminal-io*)_S 122 _t
(20)_S 5700 1478 _m
(*trace-output*)_S 122 _t
(20)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5115 11867 _m
(INDEX)_S 8699 11867 _m
(Page)_S 61 _t
(96)_S 1500 11235 _m
(*tracelimit*)_S 122 _t
(3,)_S 61 _t
(20)_S 1500 11019 _m
(*tracelist*)_S 122 _t
(20)_S 1500 10803 _m
(*tracenable*)_S 122 _t
(3,)_S 61 _t
(20)_S 1500 10587 _m
(*unbound*)_S 122 _t
(20)_S 1500 10371 _m
(/)_S 122 _t
(42)_S 1500 10155 _m
(/=)_S 122 _t
(45)_S 1500 9939 _m
(<)_S 122 _t
(45)_S 1500 9723 _m
(<=)_S 122 _t
(45)_S 1500 9507 _m
(=)_S 122 _t
(45)_S 1500 9291 _m
(>)_S 122 _t
(45)_S 1500 9075 _m
(>=)_S 122 _t
(45)_S 1500 8859 _m
(&allow-other)_S -4 _t
(-keys)_S 122 _t
(14)_S 1500 8643 _m
(&aux)_S 122 _t
(14)_S 1500 8427 _m
(&key)_S 122 _t
(14)_S 1500 8211 _m
(&optional)_S 122 _t
(14)_S 1500 7995 _m
(&rest)_S 122 _t
(14)_S 1500 7779 _m
(1+)_S 122 _t
(42)_S 1500 7563 _m
(1-)_S 122 _t
(42)_S 1500 7347 _m
(abs)_S 122 _t
(42)_S 1500 7131 _m
(acons)_S 122 _t
(36)_S 1500 6915 _m
(acos)_S 122 _t
(43)_S 1500 6699 _m
(acosh)_S 122 _t
(43)_S 1500 6483 _m
(address-of)_S 122 _t
(78)_S 1500 6267 _m
(adjoin)_S 122 _t
(39)_S 1500 6051 _m
(alloc)_S 122 _t
(77)_S 1500 5835 _m
(and)_S 122 _t
(58,)_S 61 _t
(59)_S 1500 5619 _m
(append)_S 122 _t
(36)_S 1500 5403 _m
(apply)_S 122 _t
(22)_S 1500 5187 _m
(applyhook)_S 122 _t
(7,)_S 61 _t
(75)_S 1500 4971 _m
(aref)_S 122 _t
(24,)_S 61 _t
(30)_S 1500 4755 _m
(ARRA)_S -17 _t
(Y)_S 122 _t
(78)_S 1500 4539 _m
(arrayp)_S 122 _t
(56)_S 1500 4323 _m
(ash)_S 122 _t
(46)_S 1500 4107 _m
(asin)_S 122 _t
(43)_S 1500 3891 _m
(asinh)_S 122 _t
(43)_S 1500 3675 _m
(assoc)_S 122 _t
(37)_S 1500 3459 _m
(atan)_S 122 _t
(43)_S 1500 3243 _m
(atanh)_S 122 _t
(43)_S 1500 3027 _m
(atom)_S 122 _t
(55,)_S 61 _t
(58)_S 1500 2811 _m
(backquote)_S 122 _t
(22)_S 1500 2595 _m
(baktrace)_S 122 _t
(75)_S 1500 2379 _m
(block)_S 122 _t
(63)_S 1500 2163 _m
(both-case-p)_S 122 _t
(49)_S 1500 1947 _m
(boundp)_S 122 _t
(57)_S 1500 1731 _m
(break)_S 122 _t
(74)_S 1500 1515 _m
(butlast)_S 122 _t
(37)_S 1500 1299 _m
(car)_S 122 _t
(24,)_S 61 _t
(36)_S 5700 11235 _m
(case)_S 122 _t
(60)_S 5700 11019 _m
(catch)_S 122 _t
(60)_S 5700 10803 _m
(cdr)_S 122 _t
(24,)_S 61 _t
(36)_S 5700 10587 _m
(ceiling)_S 122 _t
(41)_S 5700 10371 _m
(cerror)_S 122 _t
(74)_S 5700 10155 _m
(char)_S 122 _t
(49)_S 5700 9939 _m
(char)_S -4 _t
(-code)_S 122 _t
(49)_S 5700 9723 _m
(char)_S -4 _t
(-downcase)_S 122 _t
(49)_S 5700 9507 _m
(char)_S -4 _t
(-equal)_S 122 _t
(50)_S 5700 9291 _m
(char)_S -4 _t
(-greaterp)_S 122 _t
(50)_S 5700 9075 _m
(char)_S -4 _t
(-int)_S 122 _t
(50)_S 5700 8859 _m
(char)_S -4 _t
(-lessp)_S 122 _t
(50)_S 5700 8643 _m
(char)_S -4 _t
(-not-equal)_S 122 _t
(50)_S 5700 8427 _m
(char)_S -4 _t
(-not-greaterp)_S 122 _t
(50)_S 5700 8211 _m
(char)_S -4 _t
(-not-lessp)_S 122 _t
(50)_S 5700 7995 _m
(char)_S -4 _t
(-upcase)_S 122 _t
(49)_S 5700 7779 _m
(char/=)_S 122 _t
(50)_S 5700 7563 _m
(char<)_S 122 _t
(50)_S 5700 7347 _m
(char<=)_S 122 _t
(50)_S 5700 7131 _m
(char=)_S 122 _t
(50)_S 5700 6915 _m
(char>)_S 122 _t
(50)_S 5700 6699 _m
(char>=)_S 122 _t
(50)_S 5700 6483 _m
(CHARACTER)_S 122 _t
(78)_S 5700 6267 _m
(characterp)_S 122 _t
(56)_S 5700 6051 _m
(cis)_S 122 _t
(44)_S 5700 5835 _m
(class)_S 122 _t
(20)_S 5700 5619 _m
(classp)_S 122 _t
(57)_S 5700 5403 _m
(clean-up)_S 122 _t
(2,)_S 61 _t
(74)_S 5700 5187 _m
(clean-up,)_S 122 _t
(3)_S 5700 4971 _m
(close)_S 122 _t
(70)_S 5700 4755 _m
(CLOSURE)_S 122 _t
(78)_S 5700 4539 _m
(clrhash)_S 122 _t
(29)_S 5700 4323 _m
(cls)_S 122 _t
(79)_S 5700 4107 _m
(code-char)_S 122 _t
(49)_S 5700 3891 _m
(coerce)_S 122 _t
(78)_S 5700 3675 _m
(color)_S 122 _t
(80)_S 5700 3459 _m
(comma)_S 122 _t
(22)_S 5700 3243 _m
(comma-at)_S 122 _t
(22)_S 5700 3027 _m
(complex)_S 122 _t
(44,)_S 61 _t
(78)_S 5700 2811 _m
(complexp)_S 122 _t
(56)_S 5700 2595 _m
(concatenate)_S 122 _t
(31)_S 5700 2379 _m
(cond)_S 122 _t
(59)_S 5700 2163 _m
(conjugate)_S 122 _t
(45)_S 5700 1947 _m
(cons)_S 122 _t
(36,)_S 61 _t
(78)_S 5700 1731 _m
(consp)_S 122 _t
(55)_S 5700 1515 _m
(constantp)_S 122 _t
(55)_S 5700 1299 _m
(continue)_S 122 _t
(2,)_S 61 _t
(3,)_S 61 _t
(74)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5115 11867 _m
(INDEX)_S 8699 11867 _m
(Page)_S 61 _t
(97)_S 1500 11235 _m
(copy-alist)_S 122 _t
(39)_S 1500 11019 _m
(copy-list)_S 122 _t
(38)_S 1500 10803 _m
(copy-tree)_S 122 _t
(39)_S 1500 10587 _m
(cos)_S 122 _t
(43)_S 1500 10371 _m
(cosh)_S 122 _t
(43)_S 1500 10155 _m
(count-if)_S 122 _t
(33)_S 1500 9939 _m
(cxxr)_S 122 _t
(36)_S 1500 9723 _m
(cxxxr)_S 122 _t
(36)_S 1500 9507 _m
(cxxxxr)_S 122 _t
(36)_S 1500 9291 _m
(debug)_S 122 _t
(75)_S 1500 9075 _m
(decf)_S 122 _t
(25)_S 1500 8859 _m
(defclass)_S 122 _t
(53)_S 1500 8643 _m
(defconstant)_S 122 _t
(27)_S 1500 8427 _m
(de\256nst)_S 122 _t
(54)_S 1500 8211 _m
(defmacro)_S 122 _t
(26)_S 1500 7995 _m
(defmethod)_S 122 _t
(53)_S 1500 7779 _m
(defparameter)_S 122 _t
(27)_S 1500 7563 _m
(defsetf)_S 122 _t
(25)_S 1500 7347 _m
(defstruct)_S 122 _t
(51)_S 1500 7131 _m
(defun)_S 122 _t
(26)_S 1500 6915 _m
(defvar)_S 122 _t
(27)_S 1500 6699 _m
(delete)_S 122 _t
(33)_S 1500 6483 _m
(delete-\256le)_S 122 _t
(71)_S 1500 6267 _m
(delete-if)_S 122 _t
(34)_S 1500 6051 _m
(delete-if-not)_S 122 _t
(34)_S 1500 5835 _m
(denominator)_S 122 _t
(44)_S 1500 5619 _m
(digit-char)_S 122 _t
(49)_S 1500 5403 _m
(digit-char)_S -4 _t
(-p)_S 122 _t
(49)_S 1500 5187 _m
(do)_S 122 _t
(62)_S 1500 4971 _m
(do*)_S 122 _t
(62)_S 1500 4755 _m
(dolist)_S 122 _t
(62)_S 1500 4539 _m
(dotimes)_S 122 _t
(62)_S 1500 4323 _m
(draw)_S 122 _t
(80)_S 1500 4107 _m
(drawrel)_S 122 _t
(80)_S 1500 3891 _m
(dribble)_S 122 _t
(77)_S 1500 3675 _m
(elt)_S 122 _t
(24,)_S 61 _t
(31)_S 1500 3459 _m
(endp)_S 122 _t
(55)_S 1500 3243 _m
(eq)_S 122 _t
(58)_S 1500 3027 _m
(eql)_S 122 _t
(58)_S 1500 2811 _m
(equal)_S 122 _t
(58)_S 1500 2595 _m
(equalp)_S 122 _t
(58)_S 1500 2379 _m
(error)_S 122 _t
(74)_S 1500 2163 _m
(errset)_S 122 _t
(3,)_S 61 _t
(74)_S 1500 1947 _m
(eval)_S 122 _t
(22)_S 1500 1731 _m
(evalhook)_S 122 _t
(7,)_S 61 _t
(75)_S 1500 1515 _m
(evenp)_S 122 _t
(57)_S 1500 1299 _m
(every)_S 122 _t
(31)_S 5700 11235 _m
(exit)_S 122 _t
(79)_S 5700 11019 _m
(exp)_S 122 _t
(44)_S 5700 10803 _m
(expand)_S 122 _t
(77)_S 5700 10587 _m
(expt)_S 122 _t
(44)_S 5700 10371 _m
(fboundp)_S 122 _t
(57)_S 5700 10155 _m
(\256le-length)_S 122 _t
(71)_S 5700 9939 _m
(\256le-position)_S 122 _t
(71)_S 5700 9723 _m
(FILE-STREAM)_S 122 _t
(78)_S 5700 9507 _m
(\256ll)_S 122 _t
(34)_S 5700 9291 _m
(\256nd-if)_S 122 _t
(33)_S 5700 9075 _m
(\256rst)_S 122 _t
(36)_S 5700 8859 _m
(FIXNUM)_S 122 _t
(78)_S 5700 8643 _m
(\257atc)_S 122 _t
(66)_S 5700 8427 _m
(\257atsize)_S 122 _t
(66)_S 5700 8211 _m
(\257et)_S 122 _t
(60)_S 5700 7995 _m
(\257oat)_S 122 _t
(41)_S 5700 7779 _m
(\257oatp)_S 122 _t
(56)_S 5700 7563 _m
(FLONUM)_S 122 _t
(78)_S 5700 7347 _m
(\257oor)_S 122 _t
(41)_S 5700 7131 _m
(fmakunbound)_S 122 _t
(27)_S 5700 6915 _m
(format)_S 122 _t
(67)_S 5700 6699 _m
(fourth)_S 122 _t
(36)_S 5700 6483 _m
(fresh-line)_S 122 _t
(66)_S 5700 6267 _m
(FSUBR)_S 122 _t
(78)_S 5700 6051 _m
(funcall)_S 122 _t
(22)_S 5700 5835 _m
(function)_S 122 _t
(22,)_S 61 _t
(58)_S 5700 5619 _m
(functionp)_S 122 _t
(57)_S 5700 5403 _m
(gc)_S 122 _t
(77)_S 5700 5187 _m
(gcd)_S 122 _t
(43)_S 5700 4971 _m
(generic)_S 122 _t
(79)_S 5700 4755 _m
(gensym)_S 122 _t
(26)_S 5700 4539 _m
(get)_S 122 _t
(24,)_S 61 _t
(28)_S 5700 4323 _m
(get-internal-real-time)_S 122 _t
(77)_S 5700 4107 _m
(get-internal-run-time)_S 122 _t
(77)_S 5700 3891 _m
(get-key)_S 122 _t
(79)_S 5700 3675 _m
(get-lambda-expression)_S 122 _t
(23)_S 5700 3459 _m
(get-macro-character)_S 122 _t
(65)_S 5700 3243 _m
(get-output-stream-list)_S 122 _t
(72)_S 5700 3027 _m
(get-output-stream-string)_S 122 _t
(72)_S 5700 2811 _m
(gethash)_S 122 _t
(24,)_S 61 _t
(29)_S 5700 2595 _m
(go)_S 122 _t
(63)_S 5700 2379 _m
(goto-xy)_S 122 _t
(80)_S 5700 2163 _m
(hash)_S 122 _t
(26)_S 5700 1947 _m
(HASH-T)_S -15 _t
(ABLE)_S 122 _t
(78)_S 5700 1731 _m
(hash-table-count)_S 122 _t
(29)_S 5700 1515 _m
(identity)_S 122 _t
(22)_S 5700 1299 _m
(if)_S 122 _t
(59)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5115 11867 _m
(INDEX)_S 8699 11867 _m
(Page)_S 61 _t
(98)_S 1500 11235 _m
(imagpart)_S 122 _t
(45)_S 1500 11019 _m
(incf)_S 122 _t
(25)_S 1500 10803 _m
(input-stream-p)_S 122 _t
(56)_S 1500 10587 _m
(int-char)_S 122 _t
(50)_S 1500 10371 _m
(integerp)_S 122 _t
(55)_S 1500 10155 _m
(intern)_S 122 _t
(26)_S 1500 9939 _m
(internal-time-units-per)_S -4 _t
(-second)_S 122 _t
(20)_S 1500 9723 _m
(intersection)_S 122 _t
(39)_S 1500 9507 _m
(labels)_S 122 _t
(60)_S 1500 9291 _m
(lambda)_S 122 _t
(23)_S 1500 9075 _m
(last)_S 122 _t
(36)_S 1500 8859 _m
(lcm)_S 122 _t
(43)_S 1500 8643 _m
(length)_S 122 _t
(31)_S 1500 8427 _m
(let)_S 122 _t
(60)_S 1500 8211 _m
(let*)_S 122 _t
(60)_S 1500 7995 _m
(list)_S 122 _t
(36,)_S 61 _t
(58,)_S 61 _t
(78)_S 1500 7779 _m
(list*)_S 122 _t
(36)_S 1500 7563 _m
(listp)_S 122 _t
(55)_S 1500 7347 _m
(load)_S 122 _t
(76)_S 1500 7131 _m
(log)_S 122 _t
(44)_S 1500 6915 _m
(logand)_S 122 _t
(46)_S 1500 6699 _m
(logior)_S 122 _t
(46)_S 1500 6483 _m
(lognot)_S 122 _t
(46)_S 1500 6267 _m
(logtest)_S 122 _t
(46)_S 1500 6051 _m
(logxor)_S 122 _t
(46)_S 1500 5835 _m
(loop)_S 122 _t
(62)_S 1500 5619 _m
(lower)_S -4 _t
(-case-p)_S 122 _t
(49)_S 1500 5403 _m
(macroexpand)_S 122 _t
(23)_S 1500 5187 _m
(macroexpand-1)_S 122 _t
(23)_S 1500 4971 _m
(macrolet)_S 122 _t
(60)_S 1500 4755 _m
(make-array)_S 122 _t
(30)_S 1500 4539 _m
(make-hash-table)_S 122 _t
(29)_S 1500 4323 _m
(make-random-state)_S 122 _t
(43)_S 1500 4107 _m
(make-string-input-stream)_S 122 _t
(72)_S 1500 3891 _m
(make-string-output-stream)_S 122 _t
(72)_S 1500 3675 _m
(make-symbol)_S 122 _t
(26)_S 1500 3459 _m
(makunbound)_S 122 _t
(26)_S 1500 3243 _m
(map)_S 122 _t
(31)_S 1500 3027 _m
(mapc)_S 122 _t
(37)_S 1500 2811 _m
(mapcan)_S 122 _t
(38)_S 1500 2595 _m
(mapcar)_S 122 _t
(37)_S 1500 2379 _m
(mapcon)_S 122 _t
(38)_S 1500 2163 _m
(maphash)_S 122 _t
(29)_S 1500 1947 _m
(mapl)_S 122 _t
(37)_S 1500 1731 _m
(maplist)_S 122 _t
(38)_S 1500 1515 _m
(max)_S 122 _t
(42)_S 1500 1299 _m
(member)_S 122 _t
(37,)_S 61 _t
(58)_S 5700 11235 _m
(min)_S 122 _t
(42)_S 5700 11019 _m
(minusp)_S 122 _t
(57)_S 5700 10803 _m
(mod)_S 122 _t
(42)_S 5700 10587 _m
(mode)_S 122 _t
(80)_S 5700 10371 _m
(move)_S 122 _t
(80)_S 5700 10155 _m
(moverel)_S 122 _t
(80)_S 5700 9939 _m
(nconc)_S 122 _t
(40)_S 5700 9723 _m
(NIL)_S 122 _t
(20)_S 5700 9507 _m
(nintersection)_S 122 _t
(39)_S 5700 9291 _m
(nodebug)_S 122 _t
(75)_S 5700 9075 _m
(not)_S 122 _t
(55,)_S 61 _t
(58)_S 5700 8859 _m
(notany)_S 122 _t
(31)_S 5700 8643 _m
(notevery)_S 122 _t
(31)_S 5700 8427 _m
(nreverse)_S 122 _t
(31)_S 5700 8211 _m
(nset-difference)_S 122 _t
(39)_S 5700 7995 _m
(nset-exclusive-or)_S 122 _t
(39)_S 5700 7779 _m
(nstring-downcase)_S 122 _t
(48)_S 5700 7563 _m
(nstring-upcase)_S 122 _t
(47)_S 5700 7347 _m
(nth)_S 122 _t
(24,)_S 61 _t
(37)_S 5700 7131 _m
(nthcdr)_S 122 _t
(37)_S 5700 6915 _m
(null)_S 122 _t
(55,)_S 61 _t
(58)_S 5700 6699 _m
(NUMBER)_S 122 _t
(58)_S 5700 6483 _m
(numberp)_S 122 _t
(55)_S 5700 6267 _m
(numerator)_S 122 _t
(44)_S 5700 6051 _m
(nunion)_S 122 _t
(39)_S 5700 5835 _m
(object)_S 122 _t
(20,)_S 61 _t
(58,)_S 61 _t
(78)_S 5700 5619 _m
(objectp)_S 122 _t
(56)_S 5700 5403 _m
(oddp)_S 122 _t
(57)_S 5700 5187 _m
(open)_S 122 _t
(70)_S 5700 4971 _m
(open-stream-p)_S 122 _t
(56)_S 5700 4755 _m
(or)_S 122 _t
(58,)_S 61 _t
(59)_S 5700 4539 _m
(output-stream-p)_S 122 _t
(56)_S 5700 4323 _m
(pairlis)_S 122 _t
(38)_S 5700 4107 _m
(peek)_S 122 _t
(78)_S 5700 3891 _m
(peek-char)_S 122 _t
(69)_S 5700 3675 _m
(phase)_S 122 _t
(45)_S 5700 3459 _m
(pi)_S 122 _t
(20)_S 5700 3243 _m
(plusp)_S 122 _t
(57)_S 5700 3027 _m
(poke)_S 122 _t
(78)_S 5700 2811 _m
(pop)_S 122 _t
(25)_S 5700 2595 _m
(position-if)_S 122 _t
(33)_S 5700 2379 _m
(pp)_S 122 _t
(82)_S 5700 2163 _m
(pprint)_S 122 _t
(66)_S 5700 1947 _m
(prin1)_S 122 _t
(65)_S 5700 1731 _m
(princ)_S 122 _t
(65)_S 5700 1515 _m
(print)_S 122 _t
(65)_S 5700 1299 _m
(prog)_S 122 _t
(63)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5115 11867 _m
(INDEX)_S 8699 11867 _m
(Page)_S 61 _t
(99)_S 1500 11235 _m
(prog*)_S 122 _t
(63)_S 1500 11019 _m
(prog1)_S 122 _t
(64)_S 1500 10803 _m
(prog2)_S 122 _t
(64)_S 1500 10587 _m
(progn)_S 122 _t
(64)_S 1500 10371 _m
(progv)_S 122 _t
(64)_S 1500 10155 _m
(psetq)_S 122 _t
(24)_S 1500 9939 _m
(push)_S 122 _t
(25)_S 1500 9723 _m
(pushnew)_S 122 _t
(25)_S 1500 9507 _m
(putprop)_S 122 _t
(28)_S 1500 9291 _m
(quote)_S 122 _t
(22)_S 1500 9075 _m
(random)_S 122 _t
(43)_S 1500 8859 _m
(RA)_S -20 _t
(TIO)_S 122 _t
(78)_S 1500 8643 _m
(RA)_S -20 _t
(TIONAL)_S 122 _t
(58)_S 1500 8427 _m
(rationalp)_S 122 _t
(56)_S 1500 8211 _m
(read)_S 122 _t
(65)_S 1500 7995 _m
(read-byte)_S 122 _t
(71)_S 1500 7779 _m
(read-char)_S 122 _t
(69)_S 1500 7563 _m
(read-line)_S 122 _t
(69)_S 1500 7347 _m
(realpart)_S 122 _t
(44)_S 1500 7131 _m
(reduce)_S 122 _t
(34)_S 1500 6915 _m
(rem)_S 122 _t
(42)_S 1500 6699 _m
(remhash)_S 122 _t
(29)_S 1500 6483 _m
(remove)_S 122 _t
(32)_S 1500 6267 _m
(remove-duplicates)_S 122 _t
(34)_S 1500 6051 _m
(remove-if)_S 122 _t
(32)_S 1500 5835 _m
(remove-if-not)_S 122 _t
(32)_S 1500 5619 _m
(remprop)_S 122 _t
(28)_S 1500 5403 _m
(repair)_S 122 _t
(83)_S 1500 5187 _m
(repairf)_S 122 _t
(83)_S 1500 4971 _m
(replace)_S 122 _t
(35)_S 1500 4755 _m
(rest)_S 122 _t
(36)_S 1500 4539 _m
(restore)_S 122 _t
(76)_S 1500 4323 _m
(return)_S 122 _t
(63)_S 1500 4107 _m
(return-from)_S 122 _t
(63)_S 1500 3891 _m
(reverse)_S 122 _t
(31)_S 1500 3675 _m
(room)_S 122 _t
(77)_S 1500 3459 _m
(round)_S 122 _t
(41)_S 1500 3243 _m
(rplaca)_S 122 _t
(40)_S 1500 3027 _m
(rplacd)_S 122 _t
(40)_S 1500 2811 _m
(satis\256es)_S 122 _t
(58)_S 1500 2595 _m
(save)_S 122 _t
(76)_S 1500 2379 _m
(search)_S 122 _t
(32)_S 1500 2163 _m
(second)_S 122 _t
(36)_S 1500 1947 _m
(self)_S 122 _t
(16,)_S 61 _t
(20)_S 1500 1731 _m
(send)_S 122 _t
(16,)_S 61 _t
(24,)_S 61 _t
(53)_S 1500 1515 _m
(send-super)_S 122 _t
(16,)_S 61 _t
(53)_S 1500 1299 _m
(set)_S 122 _t
(24)_S 5700 11235 _m
(set-difference)_S 122 _t
(39)_S 5700 11019 _m
(set-exclusive-or)_S 122 _t
(39)_S 5700 10803 _m
(set-macro-character)_S 122 _t
(65)_S 5700 10587 _m
(setf)_S 122 _t
(24)_S 5700 10371 _m
(setq)_S 122 _t
(24)_S 5700 10155 _m
(signum)_S 122 _t
(43)_S 5700 9939 _m
(sin)_S 122 _t
(43)_S 5700 9723 _m
(sinh)_S 122 _t
(43)_S 5700 9507 _m
(some)_S 122 _t
(31)_S 5700 9291 _m
(sort)_S 122 _t
(40)_S 5700 9075 _m
(sqrt)_S 122 _t
(44)_S 5700 8859 _m
(step)_S 122 _t
(81)_S 5700 8643 _m
(strcat)_S 122 _t
(48)_S 5700 8427 _m
(STREAM)_S 122 _t
(58)_S 5700 8211 _m
(streamp)_S 122 _t
(56)_S 5700 7995 _m
(string)_S 122 _t
(47,)_S 61 _t
(78)_S 5700 7779 _m
(string-downcase)_S 122 _t
(47)_S 5700 7563 _m
(string-equal)_S 122 _t
(48)_S 5700 7347 _m
(string-greaterp)_S 122 _t
(48)_S 5700 7131 _m
(string-left-trim)_S 122 _t
(47)_S 5700 6915 _m
(string-lessp)_S 122 _t
(48)_S 5700 6699 _m
(string-not-equal)_S 122 _t
(48)_S 5700 6483 _m
(string-not-greaterp)_S 122 _t
(48)_S 5700 6267 _m
(string-not-lessp)_S 122 _t
(48)_S 5700 6051 _m
(string-right-trim)_S 122 _t
(47)_S 5700 5835 _m
(string-trim)_S 122 _t
(47)_S 5700 5619 _m
(string-upcase)_S 122 _t
(47)_S 5700 5403 _m
(string/=)_S 122 _t
(48)_S 5700 5187 _m
(string<)_S 122 _t
(48)_S 5700 4971 _m
(string<=)_S 122 _t
(48)_S 5700 4755 _m
(string=)_S 122 _t
(48)_S 5700 4539 _m
(string>)_S 122 _t
(48)_S 5700 4323 _m
(string>=)_S 122 _t
(48)_S 5700 4107 _m
(stringp)_S 122 _t
(56)_S 5700 3891 _m
(STRUCT)_S 122 _t
(58)_S 5700 3675 _m
(sublis)_S 122 _t
(38)_S 5700 3459 _m
(SUBR)_S 122 _t
(78)_S 5700 3243 _m
(subseq)_S 122 _t
(32)_S 5700 3027 _m
(subsetp)_S 122 _t
(57)_S 5700 2811 _m
(subst)_S 122 _t
(38)_S 5700 2595 _m
(SYMBOL)_S 122 _t
(78)_S 5700 2379 _m
(symbol-function)_S 122 _t
(24,)_S 61 _t
(26)_S 5700 2163 _m
(symbol-name)_S 122 _t
(26)_S 5700 1947 _m
(symbol-plist)_S 122 _t
(24,)_S 61 _t
(26)_S 5700 1731 _m
(symbol-value)_S 122 _t
(24,)_S 61 _t
(26)_S 5700 1515 _m
(symbolp)_S 122 _t
(55)_S 5700 1299 _m
(system)_S 122 _t
(79)_S _ep
_bp /Times-RomanR 550 _ff
0 13200 10200 _ornt 1500 11867 _m
(XLISP)_S 61 _t
(2.1d)_S 5115 11867 _m
(INDEX)_S 8608 11867 _m
(Page)_S 61 _t
(100)_S 1500 11235 _m
(t)_S 122 _t
(20)_S 1500 11019 _m
(tagbody)_S 122 _t
(63)_S 1500 10803 _m
(tan)_S 122 _t
(43)_S 1500 10587 _m
(tanh)_S 122 _t
(43)_S 1500 10371 _m
(terpri)_S 122 _t
(66)_S 1500 10155 _m
(third)_S 122 _t
(36)_S 1500 9939 _m
(throw)_S 122 _t
(60)_S 1500 9723 _m
(time)_S 122 _t
(77)_S 1500 9507 _m
(top-level)_S 122 _t
(2,)_S 61 _t
(74)_S 1500 9291 _m
(trace)_S 122 _t
(74)_S 1500 9075 _m
(truename)_S 122 _t
(71)_S 1500 8859 _m
(truncate)_S 122 _t
(41)_S 1500 8643 _m
(type-of)_S 122 _t
(78)_S 1500 8427 _m
(typep)_S 122 _t
(58)_S 1500 8211 _m
(union)_S 122 _t
(39)_S 1500 7995 _m
(unless)_S 122 _t
(59)_S 1500 7779 _m
(UNNAMED-STREAM)_S 122 _t
(78)_S 1500 7563 _m
(untrace)_S 122 _t
(74)_S 1500 7347 _m
(unwind-protect)_S 122 _t
(61)_S 1500 7131 _m
(upper)_S -4 _t
(-case-p)_S 122 _t
(49)_S 1500 6915 _m
(vector)_S 122 _t
(30)_S 1500 6699 _m
(when)_S 122 _t
(59)_S 1500 6483 _m
(with-input-from-string)_S 122 _t
(72)_S 1500 6267 _m
(with-open-\256le)_S 122 _t
(71)_S 1500 6051 _m
(with-output-to-string)_S 122 _t
(73)_S 1500 5835 _m
(write-byte)_S 122 _t
(71)_S 1500 5619 _m
(write-char)_S 122 _t
(69)_S 1500 5403 _m
(y-or)_S -4 _t
(-n-p)_S 122 _t
(66)_S 1500 5187 _m
(zerop)_S 122 _t
(57)_S _ep
_ed end end
